Merge branch '152-createinputsmodel-specify-the-error-message-qobs-co…

…lumn-names-must-be-included-in-id-s-of-the' into 'dev'

Resolve "CreateInputsModel: Specify the error message: "'Qobs' column names must be included in 'id's of the GRiwrm object""

Closes #152

See merge request in-wop/airGRiwrm!95

R/CreateInputsModel.GRiwrm.R

@@ -106,7 +106,9 @@ CreateInputsModel.GRiwrm <- function(x, DatesR,
           stop(sprintf(
             "'%s' column names must be included in 'id's of the GRiwrm object",
             varName
-          ))
+          ), "\n",
+          sprintf("These columns are not known: %s",
+                  paste(colnames(v)[!colnames(v) %in% x$id], collapse = ", ")))
         } else if (any(duplicated(colnames(v)))) {
           stop(sprintf(
             "'%s' has duplicated column names: '%s'",

tests/testthat/helper_cemaneige.R

@@ -15,7 +15,7 @@
 #' @examples
 setUpCemaNeigeData <- function() {
 
-  data(L0123001)
+  data(L0123001, package = "airGR", envir = environment())
 
   # Formatting observations for the hydrological models
   # Each input data should be a matrix or a data.frame with the good id in the name of the column

tests/testthat/test-CreateInputsModel.R

@@ -82,7 +82,7 @@ test_that("throws error on wrong column name", {
                                  TempMean = l$TempMean,
                                  ZInputs = l$ZInputs,
                                  HypsoData = l$HypsoData),
-               regexp = "column names must be included in")
+               regexp = "column names must be included in.*Up0")
   colnames(l$Precip) <- NULL
   expect_error(CreateInputsModel(l$griwrm,
                                  DatesR = l$DatesR,