style: remove extra whitespaces

Refs #45

R/CalGR.R

@@ -5,7 +5,7 @@ CalGR <- function(PrepGR, CalCrit = c("NSE", "KGE", "KGE2", "RMSE"),
   CalCrit <- sprintf("ErrorCrit_%s", CalCrit)
   FUN_CRIT <- get(CalCrit)
 
-  if (! any(transfo %in% c("", "sqrt", "log", "inv", "sort"))) {
+  if (!any(transfo %in% c("", "sqrt", "log", "inv", "sort"))) {
     stop("Non convenient transformation \"transfo\"")
   } else {
     transfo <- transfo[1L]

R/PrepGR.R

@@ -44,7 +44,7 @@ PrepGR <- function(ObsDF = NULL, DatesR = NULL, Precip = NULL, PotEvap = NULL, Q
                         TempMean = TempMean)
   }
 
-  if (! any(attributes(ObsDF$DatesR[1])$tzone %in%  "UTC")) {
+  if (!any(attributes(ObsDF$DatesR[1])$tzone %in%  "UTC")) {
     stop("Non convenient date format. Time zone must be defined as \"UTC\"")
   }
 

R/SimGR.R

@@ -5,7 +5,7 @@ SimGR <- function(PrepGR, CalGR = NULL, Param, EffCrit = c("NSE", "KGE", "KGE2",
   EffCrit <- sprintf("ErrorCrit_%s", EffCrit)
   FUN_CRIT <- get(EffCrit)
 
-  if (! any(transfo %in% c("", "sqrt", "log", "inv", "sort"))) {
+  if (!any(transfo %in% c("", "sqrt", "log", "inv", "sort"))) {
     stop("Non convenient transformation \"transfo\"")
   } else {
     transfo <- transfo[1L]

R/plot.CalGR.R

@@ -3,7 +3,7 @@ plot.CalGR <- function(x, xlab = NULL, ylab =  NULL, main = NULL, which = c("per
   if (!inherits(x, "CalGR")) {
     stop("Non convenient data for x argument. Must be of class \"CalGR\"")
   }
-  if (! any(which %in% c("perf", "iter", "ts"))) {
+  if (!any(which %in% c("perf", "iter", "ts"))) {
     stop("Non convenient data for which argument. Must be of class \"perf\", \"iter\" or \"ts\"")
   }