not_included/metadata_updater.R

In antaldaniel/surveyreader: Data cleaning and integration for survey files

library ( tidyverse )
library ( devtools )
library (surveyreader)
document()

importpath <- "C:/Users/Daniel Antal/OneDrive - Visegrad Investments/_data/data-raw/gesis/"
exportpath <- "C:/Users/Daniel Antal/OneDrive - Visegrad Investments/_data/eb_trend/"
metadata  <- readRDS("data-raw/qb_metadata.rds") %>%
  distinct ( gesis_name, spss_name, spss_class,
             suggested_class, suggested_name,label_values)
#View (metadata)

keep_numeric_exact_vars = as.character(c("AGE EXACT",
                      "DURATION OF INTERVIEW",
                      "DURATION OF INTERVIEW (MINUTES)",
                      "LEVEL IN SOCIETY - SELF PLACEMENT",
                      "N OF PERSONS PRESENT DURING INTERVIEW",
                      "LEFT-RIGHT PLACEMENT"))

keep_numeric_regex <- as.character(c("BRIBE AMOUNT IN EURO", #not rec
                        "EU 2020:"))

ZA5914_v3_random_sample <- surveyreader:::ZA5914_v3_random_sample
eb_sample <- surveyreader:::eb_sample
#gesis_qb <- readxl::read_excel("data-raw/metadata_updater.xlsx")

use_data ( metadata, eb_sample, ZA5914_v3_random_sample,
           keep_numeric_exact_vars, keep_numeric_regex ,
           naming_exceptions, importpath, exportpath,
           internal = TRUE, overwrite = TRUE)