little things

R/WFRTools.R

@@ -121,13 +121,13 @@ 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], ")")
+     title=paste0(rdata$Variable$longName, " [",rdata$Variable$units,"]\n(" ,as.character(as.Date(rdata$Dates$start[1])), ")")
   } 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")