Commit 63b9e688 authored by Delaigue Olivier's avatar Delaigue Olivier
Browse files

style: remove extra whitespaces

Refs #45
parent 5143b123
Pipeline #26073 passed with stage
in 1 minute and 45 seconds
...@@ -5,7 +5,7 @@ CalGR <- function(PrepGR, CalCrit = c("NSE", "KGE", "KGE2", "RMSE"), ...@@ -5,7 +5,7 @@ CalGR <- function(PrepGR, CalCrit = c("NSE", "KGE", "KGE2", "RMSE"),
CalCrit <- sprintf("ErrorCrit_%s", CalCrit) CalCrit <- sprintf("ErrorCrit_%s", CalCrit)
FUN_CRIT <- get(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\"") stop("Non convenient transformation \"transfo\"")
} else { } else {
transfo <- transfo[1L] transfo <- transfo[1L]
......
...@@ -44,7 +44,7 @@ PrepGR <- function(ObsDF = NULL, DatesR = NULL, Precip = NULL, PotEvap = NULL, Q ...@@ -44,7 +44,7 @@ PrepGR <- function(ObsDF = NULL, DatesR = NULL, Precip = NULL, PotEvap = NULL, Q
TempMean = TempMean) 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\"") stop("Non convenient date format. Time zone must be defined as \"UTC\"")
} }
......
...@@ -5,7 +5,7 @@ SimGR <- function(PrepGR, CalGR = NULL, Param, EffCrit = c("NSE", "KGE", "KGE2", ...@@ -5,7 +5,7 @@ SimGR <- function(PrepGR, CalGR = NULL, Param, EffCrit = c("NSE", "KGE", "KGE2",
EffCrit <- sprintf("ErrorCrit_%s", EffCrit) EffCrit <- sprintf("ErrorCrit_%s", EffCrit)
FUN_CRIT <- get(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\"") stop("Non convenient transformation \"transfo\"")
} else { } else {
transfo <- transfo[1L] transfo <- transfo[1L]
......
...@@ -3,7 +3,7 @@ plot.CalGR <- function(x, xlab = NULL, ylab = NULL, main = NULL, which = c("per ...@@ -3,7 +3,7 @@ plot.CalGR <- function(x, xlab = NULL, ylab = NULL, main = NULL, which = c("per
if (!inherits(x, "CalGR")) { if (!inherits(x, "CalGR")) {
stop("Non convenient data for x argument. Must be of class \"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\"") stop("Non convenient data for which argument. Must be of class \"perf\", \"iter\" or \"ts\"")
} }
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment