Publish clean data for Dataverse.

src/plan.R

@@ -23,6 +23,12 @@ plan <- drake_plan(
   ## 476 x 92 (including 2 scores)
   clean_data = cleanup(raw_data),
 
+  publish_data = write.csv(
+    clean_data,
+    row.names = FALSE,
+    file_out(!!here::here("data/kap_amr_laos.csv"))
+  ),
+
   ## Extract the scores for knowledge and practices
   ## These are actually two computed variables from the original responses
   ## 476 x 2