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