Update calibSample method argument check

method sent to calibSample_work is not currently set with user specified option from calibSample function and errors out due to non set method at calibSample_work
statistikat · Feb 20, 2024 · 405d170 · 405d170
1 parent 1b40ecf
commit 405d170
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/R/calibSample.R b/R/calibSample.R
@@ -121,6 +121,10 @@ setMethod("calibSample", c(inp="df_or_dataObj_or_simPopObj", totals="dataFrame_o
   args <- list(...)
   if ( is.null(args$method) ) {
     method <- "raking"
+  } else if (args$method %in% c("raking", "linear", "logit")) {
+    method <- args$method
+  } else {
+    stop("calibSample 'method' option should be one of c('raking', 'linear', 'logit') \n")
   }
   if ( is.null(args$bounds) ) {
     bounds <- c(0,10)