not_included/test_df.R

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

library (devtools)
#load_all()
df_raw <- readxl::read_excel(path = "data-raw/Test.xlsx",
                   sheet = 1 )
df_raw <- df_raw[-1, ]
metadata <- readxl::read_excel(path = "data-raw/Test.xlsx",
                               sheet = 2 )

for (i in 1:ncol(df_raw) ) {
  if ( !is.na (metadata$var_name[i]))  {
    if (nchar(metadata$var_name[i])>0) {
            names(df_raw)[i] <- metadata$var_name[i]
            }
  }
  }

df <- df_raw
df$gender <- code_gender ( df$gender )
df$year_first_management <- chr_numeric ( df$year_first_management )

df_raw <- df_raw [, 1:15]
df <- df_raw
View ( df_raw)
for ( i in 1:ncol(df_raw)) {
  if (is.na(metadata$type[i])) next
  if ( metadata$type[i] == "character") df[,i] <- as.character(pull(df_raw[,i]))
  if ( metadata$type[i] == "numeric") df[,i] <- chr_numeric(pull(df_raw[,i]),
                      validate_min = metadata$validate_min[i],
                      validate_max = metadata$validate_max[i])
  if ( metadata$type[i] == "code_gender") { df[,i] <-  code_gender ( pull(df[,i]) ) }
  if ( metadata$type[i] == "str_sub") df[,i] <- str_sub(pull(df_raw[,i]),
                                                        1,
                                                        metadata$default[i])
}


column <- df_raw$year_birth

chr_numeric(df_raw$year_birth, validate_min = NA, validate_max = NA)

df_raw[,1]
as.character ( as.vector(df_raw[,1]))

chr_logical ( column )

unique ( df$income_rec_ever_bandcamp )

chr_numeric( df$income_rec_ever_deezer)


unique ( df$difficulty_bills)
unique ( df$big_five_calm)
unique ( df$outlook_economy_household)