Commit f17d7e22 authored by Franssen, Wietse's avatar Franssen, Wietse
Browse files

little things

parent b5f4785c
......@@ -121,13 +121,14 @@ r2ggplotDataStructure <-function(data, timestep = 1) {
#' @export
ggplotje <-function(rdata,lon = NULL, lat = NULL) {
if (!is.na(rdata$Dates$start[1])) {
title=paste0(rdata$Variable$longName, " [",rdata$Variable$units,"]\n(" ,rdata$Dates$start[1], ")")
# datestring<-as.character(as.Date(data$Dates$start[1]))
# title=paste0(rdata$Variable$longName, " [",rdata$Variable$units,"]\n(" ,datestring, ")")
# title=paste0(rdata$Variable$longName, " [",rdata$Variable$units,"]\n(" ,rdata$Dates$start[1], ")")
datestring<-as.character(as.Date(data$Dates$start[1]))
title=paste0(rdata$Variable$longName, " [",rdata$Variable$units,"]\n(" ,datestring, ")")
} else {
title=paste0(rdata$Variable$longName, " [",rdata$Variable$units,"]")
}
data<-r2ggplotDataStructure(rdata)
myPalette <- colorRampPalette(rev(brewer.pal(11, "Spectral")), space="Lab")
# myPalette <- colorRampPalette(rev(rainbow(100)), space="Lab")
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment