Rename folders

wklimowicz · Dec 9, 2023 · ffd4a2f · ffd4a2f
1 parent 6ab7dfd
commit ffd4a2f
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 7 deletions.
diff --git a/inst/coding_frames/extract_lookups.R b/inst/coding_frames/extract_lookups.R
@@ -14,7 +14,7 @@ z <- data.frame(jbsoc00_cc = x2, jbsoc_description = nx$names)
 return(z)
 }
 
-s <- haven::read_sav("../usoc_raw_data//spss25/ukhls/a_indresp.sav")
+s <- haven::read_sav("../data_usoc_raw//spss25/ukhls/a_indresp.sav")
 z <- labels_to_data_frame(s$a_jbsoc00_cc)
 
 z %>%

diff --git a/inst/development/compile_usoc.R b/inst/development/compile_usoc.R
@@ -6,8 +6,8 @@ devtools::load_all()
 library(tidyverse)
 
 
-usoc_convert("../usoc_raw_data/spss25",
-             "../usoc_rds_data/",
+usoc_convert("../data_usoc_raw/spss25",
+             "../data_usoc_rds/",
 incremental = TRUE,
 filter_files = "indresp"
 )
@@ -41,7 +41,7 @@ user_extra_mappings <- function(usoc_file_column_names) {
   return(custom_variables)
 }
 
-indresp <- usoc_compile("../usoc_rds_data/",
+indresp <- usoc_compile("../data_usoc_rds/",
                      extra_mappings = user_extra_mappings,
                      save_to_folder = TRUE,
                      file = "indresp")
@@ -82,7 +82,7 @@ user_extra_mappings <- function(usoc_file_column_names) {
   return(custom_variables)
 }
 
-hhresp <- usoc_compile("../usoc_rds_data/",
+hhresp <- usoc_compile("../data_usoc_rds/",
                      extra_mappings = user_extra_mappings,
                      save_to_folder = TRUE,
                      file = "hhresp")
@@ -97,7 +97,7 @@ hhresp <- usoc_compile("../usoc_rds_data/",
 
 
 
-usoc <- usoc_compile("../usoc_rds_data/",
+usoc <- usoc_compile("../data_usoc_rds/",
                      file = "indresp")
 
 
@@ -113,7 +113,7 @@ youth_extra_mappings <- function(usoc_file_column_names) {
 
 }
 
-usoc <- usoc_compile("../usoc_rds_data/", extra_mappings = youth_extra_mappings, file = "youth")
+usoc <- usoc_compile("../data_usoc_rds/", extra_mappings = youth_extra_mappings, file = "youth")
 
 usoc <- usoc_load()