v1.6.8.34 refactor: remove useless warning message in getAggregConvertFun

Refs 213e4c9b, 3e49873d #41

DESCRIPTION

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

NEWS.md

@@ -2,7 +2,7 @@
 
 
 
-### 1.6.8.33 Release Notes (2021-01-05)
+### 1.6.8.34 Release Notes (2021-01-05)
 
 #### New features
 

R/SeriesAggreg.InputsModel.R

 SeriesAggreg.InputsModel <- function(x, ...) {
-  res <- suppressMessages(
-    SeriesAggreg.list(x,
-                      ConvertFun = getAggregConvertFun(names(x)),
-                      except = c("ZLayers", "LengthHydro", "BasinAreas"),
-                      ...)
-    )
-  return(res)
+  SeriesAggreg.list(x,
+                    ConvertFun = getAggregConvertFun(names(x)),
+                    except = c("ZLayers", "LengthHydro", "BasinAreas"),
+                    ...)
 }

R/SeriesAggreg.OutputsModel.R

 SeriesAggreg.OutputsModel <- function(x, ...) {
-  res <- suppressMessages(
-    SeriesAggreg.list(x,
-                      ConvertFun = getAggregConvertFun(names(x)),
-                      except = "StateEnd",
-                      ...)
-  )
-  return(res)
+  SeriesAggreg.list(x,
+                    ConvertFun = getAggregConvertFun(names(x)),
+                    except = "StateEnd",
+                    ...)
 }

R/UtilsSeriesAggreg.R

@@ -53,11 +53,5 @@ getAggregConvertFun <- function(Outputs) {
     iRes <- AggregConvertFunTable$ConvertFun[AggregConvertFunTable$Outputs == iOutputs]
     iRes <- ifelse(test = any(is.na(iRes)), yes = NA, no = iRes) # R < 4.0 compatibility
   })
-  if (length(res) > 0) {
-    message("Variables automatically aggregated as follow:")
-    widthMsg <- max(nchar(c(names(res), res)), na.rm = TRUE) + 1 + 2
-    message(format(names(res)  , width = widthMsg, justify = "right"))
-    message(format(shQuote(res), width = widthMsg, justify = "right"))
-  }
   return(res)
 }