data(project)
cols <- srvy.dat("cols")
cols.name <- unlist(lapply(1:length(cols), function(i) cols[[i]]$name))
cols.class <- unlist(lapply(1:length(cols), function(i) cols[[i]]$class))
vars.old <- srvy.dat("vars")
srvy.vars(cols.name, cols.class, vars.old)
Run the code above in your browser using DataLab