dumbcode/test_vardesc.R

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

# test with cahier var_desc
test2 <- function(){
library(openxlsx)
var_desc <- read.xlsx("Cahier variable du cahier de variable.xlsx")

params <- c("rep_rawdata"="rawdata",
  "rep_cleandata"="cleandata",
  "rep_variable"="poids",
  "rep_label"="Poids"
  )
rm(param)
rawdata_name <- "rawdata"
cleandata_name <- "clean_data"

variable_name <- "poids"
label <- "rep_label"
names(params)

modif <- a
for(i in seq_along(params)){
  print(names(params[i]))
  modif <- gsub(names(params[i]),replacement=params[i], x=modif)
}
modif

file_export <- file(description="test_dm.R", open="w")
writeLines(text=modif, con=file_export)
close(file_export)
}