Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.
In our last note we stated that unpack is a good tool for load R RDS files into your working environment. Here is the idea expanded into a worked example.
# remotes::install_github("WinVector/wrapr")
library(wrapr)
a <- 5
b <- 7
do_not_want <- 13
# save the elements of our workspace we want
saveRDS(as_named_list(a, b), 'example_data.RDS')
# clear values out of our workspace for the example
rm(list = ls())
ls()
#> character(0)
# notice workspace environemnt now empty
# read back while documenting what we expect to
# read in
unpack[a, b] <- readRDS('example_data.RDS')
# confirm what we have, the extra unpack is a side
# effect of the []<- notation. To avoid this instead
# use one of:
# unpack(readRDS('example_data.RDS'), a, b)
# readRDS('example_data.RDS') %.>% unpack(., a, b)
# readRDS('example_data.RDS') %.>% unpack[a, b]
ls()
#> [1] "a" "b" "unpack"
# notice do_not_want is not present
print(a)
#> [1] 5
print(b)
#> [1] 7
We have new documentation on the new as_named_list helper function here.
The idea is: this is a case where non-standard evaluation is working for us (and clarity/safety) as it forces the user to document each object they want written out (by explicitly naming them), and exactly what objects they expect to come back (again by explicitly naming them right at the assignment location).
R-bloggers.com offers daily e-mail updates about R news and tutorials about learning R and many other topics. Click here if you're looking to post or find an R/data-science job.
Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.