Rename validate-vars-dict -> check-vars-dict

.pre-commit-config.yaml

@@ -34,9 +34,9 @@ repos:
         entry: Cannot commit .Rhistory, .RData, .Rds or .rds.
         language: fail
         files: '\.(Rhistory|RData|Rds|rds)$'
-    -   id: validate-vars-dict
+    -   id: check-vars-dict
         name: Validate vars_dict
-        entry: Rscript scripts/validate-vars-dict.R
+        entry: Rscript scripts/check-vars-dict.R
         files: data/vars_dict.rda
         language: r
 -   repo: https://github.com/astral-sh/ruff-pre-commit

scripts/validate-vars-dict.R → scripts/check-vars-dict.R

@@ -1,16 +1,16 @@
+# Script to check that the `vars_dict` data object is well-formed
 load("data/vars_dict.rda")
 
+# Check for duplicate model parameters
 non_na_model_vars <- subset(
   vars_dict,
   !is.na(var_name_model)
 )[c("var_name_model", "var_code", "var_value")]
-
 dupes <- non_na_model_vars[which(duplicated(non_na_model_vars)), ]
 
 if (nrow(dupes) > 0) {
-  dupe_var_names <- dupes$var_name_model
   stop(
     "Duplicate var_name_model entries in vars_dict: ",
-    paste(dupe_var_names, collapse = ", ")
+    paste(dupes$var_name_model, collapse = ", ")
   )
 }