Merge pull request #140 from RSGInc/139-small-bug-in-hts_prep_variable

changing != to !%in% where needed
RSGInc · Mar 4, 2024 · 67b95f7 · 67b95f7
2 parents f4666a3 + 4b9c606
commit 67b95f7
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/hts_prep_variable.R b/R/hts_prep_variable.R
@@ -154,7 +154,7 @@ hts_prep_variable = function(summarize_var = NULL,
     summarize_var = variables_dt[shared_name == summarize_var, variable]
 
     for (i in 1:length(summarize_var)) {
-      if (var_dt[, class(get(summarize_var[i]))] != "integer") {
+      if (var_dt[, !"integer" %in% class(get(summarize_var[i]))]) {
         message("Checkbox variables must have integer values")
 
         stop()
@@ -273,7 +273,7 @@ hts_prep_variable = function(summarize_var = NULL,
         var = variables_dt[shared_name == var, variable][1]
       }
 
-      if (byvar_is_shared & byvar_table[, class(get(var))] != "integer") {
+      if (byvar_is_shared & !"integer" %in% byvar_table[, class(get(var))]) {
         message("Checkbox variables must have integer values")
 
         stop()