dumbcode/data_for_doc.R

In jomuller/vartors: Transform Definition of Variables to R Scripts

# Create data for documentation
create_script(var_desc = Descvar(varlabel = "blbl", type = "factor"))

data(example_df)
colnames(example_df)[c(1, 3:10)] <- c("ID", "Birthdate","Gender", "Study lvl", "Heigh (m)", "Weight (kg)", "Siblings", "Q1","Q2")

simpledb<- example_df[1:10,c(1, 3:10)]
kable(example_df[1:10,c(1, 3:10)])
desc_skeleton <- descvars_skeleton(simpledb)

kable(desc_skeleton[,c(2:8)])
kable(desc_skeleton[,c(2, 9:length(desc_skeleton))])
desc_complete <- edit(desc_skeleton)
save(desc_complete, file = "../../../../../../../../Desktop/descexemple.RData")
kable(desc_complete[,c(2:8)])
kable(desc_complete[,c(2, 9:length(desc_skeleton))])