From 083e9fdf3922d4f30e0cb70939ad1e3f92cee9a7 Mon Sep 17 00:00:00 2001
From: Delaigue Olivier <olivier.delaigue@irstea.fr>
Date: Fri, 29 Jan 2021 06:18:33 +0100
Subject: [PATCH] style: format comments in CreateCalibOptions
---
R/CreateCalibOptions.R | 24 ++++++++++++------------
1 file changed, 12 insertions(+), 12 deletions(-)
diff --git a/R/CreateCalibOptions.R b/R/CreateCalibOptions.R
index 2fcd84ff..78302745 100644
--- a/R/CreateCalibOptions.R
+++ b/R/CreateCalibOptions.R
@@ -21,7 +21,7 @@ CreateCalibOptions <- function(FUN_MOD,
if (!is.logical(IsSD) | length(IsSD) != 1L) {
stop("'IsSD' must be a logical of length 1")
}
- ##check_FUN_MOD
+ ## check FUN_MOD
BOOL <- FALSE
if (identical(FUN_MOD, RunModel_GR4H)) {
@@ -87,7 +87,7 @@ CreateCalibOptions <- function(FUN_MOD,
return(NULL)
}
- ##check_FUN_CALIB
+ ## check FUN_CALIB
BOOL <- FALSE
if (identical(FUN_CALIB, Calibration_Michel)) {
@@ -100,9 +100,9 @@ CreateCalibOptions <- function(FUN_MOD,
}
- ##check_FUN_TRANSFO
+ ## check FUN_TRANSFO
if (is.null(FUN_TRANSFO)) {
- ##_set_FUN1
+ ## set FUN1
if (identical(FUN_MOD, RunModel_GR4H) |
identical(FUN_MOD, RunModel_CemaNeigeGR4H)) {
FUN_GR <- TransfoParam_GR4H
@@ -140,17 +140,17 @@ CreateCalibOptions <- function(FUN_MOD,
stop("'FUN_GR' was not found")
return(NULL)
}
- ##_set_FUN2
+ ## set FUN2
if (IsHyst) {
FUN_SNOW <- TransfoParam_CemaNeigeHyst
} else {
FUN_SNOW <- TransfoParam_CemaNeige
}
- ##_set_FUN_LAG
+ ## set FUN_LAG
if (IsSD) {
FUN_LAG <- TransfoParam_Lag
}
- ##_set_FUN_TRANSFO
+ ## set FUN_TRANSFO
if (sum(ObjectClass %in% c("GR4H", "GR5H", "GR4J", "GR5J", "GR6J", "GR2M", "GR1A", "CemaNeige")) > 0) {
if (!IsSD) {
FUN_TRANSFO <- FUN_GR
@@ -252,7 +252,7 @@ CreateCalibOptions <- function(FUN_MOD,
return(NULL)
}
- ##NParam
+ ## NParam
if ("GR4H" %in% ObjectClass) {
NParam <- 4
}
@@ -299,7 +299,7 @@ CreateCalibOptions <- function(FUN_MOD,
NParam <- NParam + 1
}
- ##check_FixedParam
+ ## check FixedParam
if (is.null(FixedParam)) {
FixedParam <- rep(NA, NParam)
} else {
@@ -317,7 +317,7 @@ CreateCalibOptions <- function(FUN_MOD,
}
}
- ##check_SearchRanges
+ ## check SearchRanges
if (is.null(SearchRanges)) {
ParamT <- matrix(c(rep(-9.99, NParam), rep(+9.99, NParam)),
ncol = NParam, byrow = TRUE)
@@ -341,7 +341,7 @@ CreateCalibOptions <- function(FUN_MOD,
}
}
- ##check_StartParamList_and_StartParamDistrib__default_values
+ ## check StartParamList and StartParamDistrib default values
if (("HBAN" %in% ObjectClass & is.null(StartParamList) & is.null(StartParamDistrib))) {
if ("GR4H" %in% ObjectClass) {
ParamT <- matrix(c(+5.12, -1.18, +4.34, -9.69,
@@ -440,7 +440,7 @@ CreateCalibOptions <- function(FUN_MOD,
}
- ##check_StartParamList_and_StartParamDistrib__format
+ ## check StartParamList and StartParamDistrib format
if ("HBAN" %in% ObjectClass & !is.null(StartParamList)) {
if (!is.matrix(StartParamList)) {
stop("'StartParamList' must be a matrix")
--
GitLab