Nothing
step_locals <- function(parent, locals, name) {
stopifnot(is_step(parent))
stopifnot(is.list(locals))
stopifnot(is_string(name))
new_step(
parent = parent,
locals = utils::modifyList(parent$locals, locals),
implicit_copy = TRUE,
needs_copy = FALSE,
name = name,
class = "dtplyr_step_assign",
)
}
#' @export
dt_call.dtplyr_step_assign <- function(x, needs_copy = FALSE) {
sym(x$name)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.