b

R/WFRTools.R

@@ -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,"]")
   }