## Not implemented:
## * check_current
## * skip_missing
remake_environment <- function(obj, target_names, dependencies=FALSE,
copy_functions=FALSE) {
if (dependencies) {
target_names <- remake_list_dependencies(obj, target_names,
type="object")
}
envir <- remake_environment_sources(obj, copy_functions)
obj$store$objects$export(envir, target_names)
invisible(envir)
}
## Then organise the sources:
remake_environment_sources <- function(obj, copy=FALSE) {
envir_source <- obj$store$env$env
## TODO: Run tests with load_sources=FALSE and see what happens in
## this case.
if (!is.environment(envir_source)) {
stop("probably have to do something here?")
}
if (copy) {
## TODO: This is not actually doing the right thing: we should
## also set the environment of the functions to the new
## environment. It might be easier to re-source into this
## environment?
e <- new.env(parent=.GlobalEnv)
copy_environment(envir_source, e)
} else {
e <- new.env(parent=envir_source)
}
e
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.