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)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.