Nothing
list_new <- function(object = NULL) {
enclass(environment(), c("tar_list", "tar_value"))
}
#' @export
value_count_slices.tar_list <- function(value) {
length(value$object)
}
#' @export
value_produce_slice.tar_list <- function(value, index) {
value$object[[index]]
}
#' @export
value_produce_aggregate.tar_list <- function(value, objects) { #nolint
objects
}
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.