fix(GUI): automatically use the first column of ObsDF to get the dates

Refs #38

R/ShinyGR.R

@@ -21,7 +21,6 @@ ShinyGR <- function(ObsDF = NULL, DatesR = NULL, Precip = NULL, PotEvap = NULL,
     }
   }
   if (is.data.frame(ObsDF)) {
-    colnames(ObsDF)[1L] <- "DatesR"
     ObsDF <- list(ObsDF)
   }
 

inst/ShinyGR/server.R

@@ -22,7 +22,7 @@ shinyServer(function(input, output, session) {
     if (is.null(.ShinyGR.args$ObsDF[[input$Dataset]])) {
       datesDataset <- .ShinyGR.args$DatesR[1:2]
     } else{
-      datesDataset <- .ShinyGR.args$ObsDF[[input$Dataset]]$DatesR[1:2]
+      datesDataset <- .ShinyGR.args$ObsDF[[input$Dataset]][[1]][1:2]
     }
     nbDaysDataset <- as.numeric(diff(datesDataset), units = "days")
     if (nbDaysDataset %in% 29:31) {
@@ -60,7 +60,7 @@ shinyServer(function(input, output, session) {
     if (is.null(ObsDF)) {
       datesDataset <- .ShinyGR.args$DatesR[1:2]
     } else{
-      datesDataset <- .ShinyGR.args$ObsDF[[input$Dataset]]$DatesR[1:2]
+      datesDataset <- .ShinyGR.args$ObsDF[[input$Dataset]][[1]][1:2]
     }
     nbDaysDataset <- as.numeric(diff(datesDataset), units = "days")
     if (nbDaysDataset %in% 29:31) {