From 919dc477096f4052aaa57ad405c2b69c57edcd2e Mon Sep 17 00:00:00 2001
From: Delaigue Olivier <olivier.delaigue@irstea.fr>
Date: Wed, 4 Aug 2021 13:19:01 +0200
Subject: [PATCH] style: remove the extra whitespaces
---
R/Calibration_Michel.R | 2 +-
R/ErrorCrit_KGE.R | 2 +-
R/ErrorCrit_KGE2.R | 4 ++--
R/ErrorCrit_NSE.R | 2 +-
R/ErrorCrit_RMSE.R | 2 +-
R/UtilsCalibOptions.R | 2 +-
6 files changed, 7 insertions(+), 7 deletions(-)
diff --git a/R/Calibration_Michel.R b/R/Calibration_Michel.R
index 1ad475be..462cd261 100644
--- a/R/Calibration_Michel.R
+++ b/R/Calibration_Michel.R
@@ -404,7 +404,7 @@ Calibration_Michel <- function(InputsModel,
listNameCrit <- OutputsCrit$CritCompo$MultiCritNames
msgForm <- paste(sprintf("%.2f", listweights), listNameCrit, sep = " * ", collapse = ", ")
msgForm <- unlist(strsplit(msgForm, split = ","))
- msgFormSep <- rep(c(",", ",", ",\n\t\t "), times = ceiling(length(msgForm)/3))[1: length(msgForm)]
+ msgFormSep <- rep(c(",", ",", ",\n\t\t "), times = ceiling(length(msgForm)/3))[1:length(msgForm)]
msgForm <- paste(msgForm, msgFormSep, sep = "", collapse = "")
msgForm <- gsub("\\,\\\n\\\t\\\t $|\\,$", "", msgForm)
message("\tFormula: sum(", msgForm, ")")
diff --git a/R/ErrorCrit_KGE.R b/R/ErrorCrit_KGE.R
index a680dcb6..cd5d53f7 100644
--- a/R/ErrorCrit_KGE.R
+++ b/R/ErrorCrit_KGE.R
@@ -31,7 +31,7 @@ ErrorCrit_KGE <- function(InputsCrit, OutputsModel, warnings = TRUE, verbose = T
Crit <- 0
}
} else {
- Crit <- Numer / (Deno1 * Deno2)
+ Crit <- Numer / (Deno1 * Deno2)
}
if (is.numeric(Crit) & is.finite(Crit)) {
SubCritValues[1L] <- Crit
diff --git a/R/ErrorCrit_KGE2.R b/R/ErrorCrit_KGE2.R
index 1568d3de..bba56323 100644
--- a/R/ErrorCrit_KGE2.R
+++ b/R/ErrorCrit_KGE2.R
@@ -5,7 +5,7 @@ ErrorCrit_KGE2 <- function(InputsCrit, OutputsModel, warnings = TRUE, verbose =
stop("'OutputsModel' must be of class 'OutputsModel'")
}
- EC <- .ErrorCrit(InputsCrit = InputsCrit, Crit = "KGE2", OutputsModel = OutputsModel, warnings = warnings)
+ EC <- .ErrorCrit(InputsCrit = InputsCrit, Crit = "KGE2", OutputsModel = OutputsModel, warnings = warnings)
CritValue <- NA
SubCritValues <- rep(NA, 3)
@@ -31,7 +31,7 @@ ErrorCrit_KGE2 <- function(InputsCrit, OutputsModel, warnings = TRUE, verbose =
Crit <- 0
}
} else {
- Crit <- Numer / (Deno1 * Deno2)
+ Crit <- Numer / (Deno1 * Deno2)
}
if (is.numeric(Crit) & is.finite(Crit)) {
SubCritValues[1L] <- Crit
diff --git a/R/ErrorCrit_NSE.R b/R/ErrorCrit_NSE.R
index ed2fb7e6..0f66c2d3 100644
--- a/R/ErrorCrit_NSE.R
+++ b/R/ErrorCrit_NSE.R
@@ -5,7 +5,7 @@ ErrorCrit_NSE <- function(InputsCrit, OutputsModel, warnings = TRUE, verbose = T
stop("'OutputsModel' must be of class 'OutputsModel'")
}
- EC <- .ErrorCrit(InputsCrit = InputsCrit, Crit = "NSE", OutputsModel = OutputsModel, warnings = warnings)
+ EC <- .ErrorCrit(InputsCrit = InputsCrit, Crit = "NSE", OutputsModel = OutputsModel, warnings = warnings)
CritValue <- NA
diff --git a/R/ErrorCrit_RMSE.R b/R/ErrorCrit_RMSE.R
index c66993bd..845ff0a5 100644
--- a/R/ErrorCrit_RMSE.R
+++ b/R/ErrorCrit_RMSE.R
@@ -5,7 +5,7 @@ ErrorCrit_RMSE <- function(InputsCrit, OutputsModel, warnings = TRUE, verbose =
stop("'OutputsModel' must be of class 'OutputsModel'")
}
- EC <- .ErrorCrit(InputsCrit = InputsCrit, Crit = "RMSE", OutputsModel = OutputsModel, warnings = warnings)
+ EC <- .ErrorCrit(InputsCrit = InputsCrit, Crit = "RMSE", OutputsModel = OutputsModel, warnings = warnings)
CritValue <- NA
diff --git a/R/UtilsCalibOptions.R b/R/UtilsCalibOptions.R
index 193aa7da..aa4aaf5f 100644
--- a/R/UtilsCalibOptions.R
+++ b/R/UtilsCalibOptions.R
@@ -11,7 +11,7 @@
FUN_GR <- TransfoParam_CemaNeige
}
} else {
- # Fatal error if the TransfoParam function does not exist
+ # fatal error if the TransfoParam function does not exist
FUN_GR <- match.fun(sprintf("TransfoParam_%s", FeatFUN_MOD$CodeModHydro))
}
--
GitLab