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

b

parent 504f94f4
......@@ -121,9 +121,9 @@ 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,"]")
}
......
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