Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- library(here)
- library(readr)
- library(stringr)
- file_survey <- here("my_survey_2019.rds")
- my_read_rds <- function(file){
- name <- deparse(substitute(file))
- name <- stringr::str_remove(name, "^file_")
- eval(name) <- readr::read_rds(file) # Does not work
- }
- my_read_rds(file_survey) # would ideally create a dataframe named `survey`
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement