not_included/create_sample_sav.R

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

df <- haven::read_spss( "C:/Users/Daniel Antal/OneDrive - Visegrad Investments/_data/data-raw/gesis/ZA6863_v1-0-0.sav")
set.seed(2017)
gesis_small_sample <-  ZA6863 %>%
  dplyr::sample_n (., size = 120 ) %>%
  dplyr::select( uniqid, serialid, split,
                 qa1a_2, qa1b_2, qb1_3, qb1_4 )

haven::write_sav ( data = gesis_small_sample,
                   path = 'data-raw/gesis_small_sample.sav' )

gesis_small_sample <- small_df
haven::print_labels(gesis_small_sample$qa1a_2)
devtools::use_data (gesis_small_sample, overwrite = TRUE )

read.csv( 'C:/Users/Daniel Antal/OneDrive - Visegrad Investments/_package/surveyreader/data-raw/gesis_qb_update.csv')
my_path  = 'C:/Users/Daniel Antal/OneDrive - Visegrad Investments/_package/surveyreader/data-raw/gesis_small_sample.sav'
my_path2  = 'data-raw/gesis_small_sample.sav'

mypath = normalizePath(getwd(), winslash = "\\")
haven::write_sav ( data = gesis_small_sample,
                   path = my_path2 )

gesis_small_sample <- haven::read_spss("data-raw/gesis_small_sample.sav")
haven::print_labels(read_sample$qa1a_2)