v1.4.8.6 style: commented command lines removed in SeriesAggreg2.InputsModel #41

DESCRIPTION

 Package: airGR
 Type: Package
 Title: Suite of GR Hydrological Models for Precipitation-Runoff Modelling
-Version: 1.4.8.5
+Version: 1.4.8.6
 Date: 2020-05-04
 Authors@R: c(
   person("Laurent", "Coron", role = c("aut", "trl"), comment = c(ORCID = "0000-0002-1503-6204")),

NEWS.md

@@ -4,7 +4,7 @@
 
 
 
-### 1.4.8.5 Release Notes (2020-05-04)
+### 1.4.8.6 Release Notes (2020-05-04)
 
 #### New features
 

R/SeriesAggreg2.InputsModel.R

@@ -22,48 +22,5 @@ SeriesAggreg2.InputsModel <- function(TabSeries,
   }
   
   return(res)
-  # TabSeries <- as.data.frame.list(TabSeries)
-  # 
-  # # NewTimeFormat <- c(hourly  = "hourly",
-  # #                    daily   = "daily",
-  # #                    monthly = "monthly",
-  # #                    yearly  = "yearly")
-  # # Format <- switch(Format,
-  # #                  hourly  = "%Y%m%d%h",
-  # #                  daily   = "%Y%m%d",
-  # #                  monthly = "%Y%m",
-  # #                  yearly  = "%Y")
-  # # 
-  # # TimeFormat <- intersect(class(InputsModel), listTimeFormat)
-  # # 
-  # # if (length(TimeFormat) == 0) {
-  # #   stop("wrong time step")
-  # # }
-  # # 
-  # 
-  # 
-  # NewTabSeries <- SeriesAggreg2(TabSeries = TabSeries,
-  #                               Format = Format,
-  #                               TimeFormat = TimeFormat, NewTimeFormat = NewTimeFormat,
-  #                               ConvertFun = c("sum", "sum"),
-  #                               YearFirstMonth = YearFirstMonth, TimeLag = TimeLag,
-  #                               verbose = verbose)
-  # 
-  # ## to be consistent with InputsModel class
-  # NewTabSeries$DatesR <- as.POSIXlt(NewTabSeries$DatesR)
-  # 
-  # ClassFormat <- class(NewTabSeries)[class(NewTabSeries) != "SeriesAggreg"]
-  # 
-  # SuffixRunModel <- switch(ClassFormat,
-  #                                  hourly  = "4H",
-  #                                  daily   = "4J",
-  #                                  monthly = "2M",
-  #                                  yearly  = "1A")
-  # 
-  # RunModel <- paste0("RunModel_GR", SuffixRunModel)
-  # 
-  # InputsModel <- CreateInputsModel(FUN_MOD = RunModel,
-  #                                  DatesR = NewTabSeries$DatesR, Precip = NewTabSeries$Precip, PotEvap = NewTabSeries$PotEvap)
-  # 
-  # 
+
 }
\ No newline at end of file