if (rstudioapi::isAvailable()) {
# Unnamed code chunks returns to globalenv()
global_var = 5
job::job({
x = rnorm(global_var)
print("This text goes to the job console")
m = mean(x)
})
# later:
print(x)
print(m)
# Named code chunks assign job environment to that name
job::job(my_result = {
y = rnorm(global_var)
sigma = sd(y)
}, title = "Title with code: {code}")
# later:
print(my_result$y)
print(my_result$sigma)
# Delete everything in the job environment to return nothing.
# Useful if text output + file output is primary
job::job({
some_cars = mtcars[mtcars$cyl > 4, ]
print(mean(some_cars$mpg))
print(summary(some_cars))
# saveRDS(some_cars, "job_result.rds")
job::export("none") # return nothing
})
# Control imports from calling environment (variables, packages, options)
my_df = data.frame(names = c("alice", "bob"))
ignore_var = 15
job::job(result2 = {
if (exists("ignore_var") == FALSE)
print("ignore_var is not set here")
names = rep(my_df$names, global_var)
}, import = c(global_var, my_df), packages = NULL, opts = list(mc.cores = 3))
# later
print(result2$names)
}
Run the code above in your browser using DataLab