dumbcode/manual_vardef.R

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

# Create a manual varsdef

# Descvar(varname="ID",type="integer",label="Identifiant du patient", levels="jf")
some_vars <- list(
  Descvar(varname="id",type="integer",label="Identifiant du patient"),
  Descvar("&&dqdfqsldkfqdss","numeric","Ville d'habitation",levels=c("Strasbourg","Haguenau","Colmar")),
  Descvar("age","integer")
  )
a<-import_template("inst/templates/anothertemplate.R")

unevar<-Descvar(varname="age",type="date")
        
sss<- create_dm(unevar, import_template("inst/templates/anothertemplate.R"))
class(sss)
sss
a<-lapply(X=some_vars, FUN=create_dm, import_template("dumbcode//anothertemplate.R"))
write(a)
write(a[[1]])