add fill = T in fread

R/import_cmdc_data.R

@@ -6,7 +6,7 @@ NULL
 #' @export
 import_cmdc_data <- function(fname){
   cmdc <- list()
-  cmdc$data <- data.table::fread(fname)
+  cmdc$data <- data.table::fread(fname, fill = T) # in case that the row lengths are not equal.
   class(cmdc) <- cmdcr::get_data_type(fname)
   cmdc
 }