quick fix for VPU 13.

workspace/R/utils.R

@@ -437,7 +437,11 @@ merge_refactor <- function(rpus, rpu_vpu_out,
   }
   
   out <- setNames(lapply(names(out[[1]]), function(x, out) {
-    dplyr::bind_rows(lapply(out, function(df, n) df[[n]], n = x))
+    dplyr::bind_rows(lapply(out, function(df, n) {
+      if("COMID" %in% names(df[[n]]) && is.numeric(df[[n]]$COMID)) 
+        df[[n]]$COMID <- as.character(df[[n]]$COMID)
+      df[[n]]
+    }, n = x))
   }, out = out), names(out[[1]]))
   
   # blow up so we have unique COMIDs to join on.