diff --git a/DESCRIPTION b/DESCRIPTION index aff52af328b960734559b3941b27f3649150d7be..a86f83779b6ad523fbd05a42272a7ec89aa9ccf7 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,7 +1,7 @@ Package: airGR Type: Package Title: Suite of GR Hydrological Models for Precipitation-Runoff Modelling -Version: 1.0.9.71 +Version: 1.0.9.72 Date: 2018-01-30 Authors@R: c( person("Laurent", "Coron", role = c("aut", "trl")), diff --git a/R/CreateInputsModel.R b/R/CreateInputsModel.R index df46eb0184fdd73956215d945e646224987408b2..c090e7bd657cac8f2a5c2aeafc9aae48c96060b5 100644 --- a/R/CreateInputsModel.R +++ b/R/CreateInputsModel.R @@ -76,7 +76,8 @@ CreateInputsModel <- function(FUN_MOD, DatesR <- as.POSIXlt(DatesR) } if (difftime(tail(DatesR, 1), tail(DatesR, 2), units = "secs")[[1]] %in% TimeStep == FALSE) { - stop(paste( "the time step of the model inputs must be ", TimeStep, " seconds \n", sep = "")) + TimeStepName <- grep("hourly|daily|monthly|yearly", ObjectClass, value = TRUE) + stop(paste0("The time step of the model inputs must be ", TimeStepName, "\n")) return(NULL) } if (any(duplicated(DatesR))) {