Additional check for createArgusInput() to make sure that the holding variable is integer (sdcTools/UserSupport#302)

Author: bernhard-da

NEWS.md

@@ -1,3 +1,6 @@
+# sdcTable next
+- Additional check for `createArgusInput()` to make sure that the holding variable is integer (if specified)
+
 # sdcTable 0.32.6
 - Improvements in `SIMPLEHEURISTIC` when adding additional suppressions
 - Add `RegSDC` as suggested package in order to avoid a CRAN note

R/tauBatch_helpers.R

@@ -104,6 +104,9 @@ check_varinput <- function(obj, type, responsevar, shadowvar, costvar, requestva
     if (!holdingvar %in% cn) {
       stop("non-valid variable selected for choice 'holdingvar'.\n")
     }
+    if (!is.integer(obj@dataObj@rawData[[holdingvar]])) {
+      stop("holdingvar (", shQuote(holdingvar), ") is not an integer!")
+    }
   } else {
     holdingvar <- ""
   }