Merge pull request #112 from RSGInc/106-remove-missing-weights

106 remove missing weights
RSGInc · Feb 9, 2024 · 8967265 · 8967265
2 parents 7f70ceb + 63a81e5
commit 8967265
Show file tree

Hide file tree

Showing 3 changed files with 15 additions and 1 deletion.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: travelSurveyTools
 Title: travelSurveyTools
-Version: 1.0.0
+Version: 2.0.0
 Authors@R: c(
     person("RSG", "Inc.", , "[email protected]", role = c("aut", "cre")),
     person("Ashley", "Asmus", , "[email protected]", role = "aut"),

diff --git a/NEWS.md b/NEWS.md
@@ -1,3 +1,7 @@
+# travelSurveyTools 2.0.0
+
+- Add function to check variable_list (`hts_validate_variable_list`)
+
 # travelSurveyTools 1.0.0
 
 # travelSurveyTools 0.9

diff --git a/R/hts_prep_data.R b/R/hts_prep_data.R
@@ -133,6 +133,16 @@ hts_prep_data = function(summarize_var = NULL,
   # Select table where this variable lives:
   var_dt = data[[var_location]]
 
+  browser()
+  #check for missing weight variables
+  missing_weight_count = var_dt[is.na(ids[tbl_idx]), .N]
+
+  if (missing_weight_count > 0){
+
+    message(missing_weight_count, ' missing weight(s) of ', ids[tbl_idx], 
+            ' in ', var_location, ' setting equal to 0')
+
+  }
 
   # Check that specified id column exists in var_dt
   stopifnot("table id not in var_dt, make id_cols ordered list of ids in each table of data" =