Nothing
#' `[` method for `cropr_simulation`
#'
#' This method ensure keeping the `cropr_simulation` attribute when subsetting a
#' `cropr_simulation` list.
#'
#' @param x A `cropr_simulation` list
#' @param ... An index
#'
#' @return A subset of a `cropr_simulation`, keeping its attribute
#' @export
#'
#' @examples
#' path <- file.path(get_examples_path("sti"), "workspace1")
#' sim <- SticsRFiles::get_sim(workspace = path)
#' # sim returns a `cropr_simulation` list
#'
`[.cropr_simulation` <- function(x, ...) {
l <- unclass(x)[...]
attr_names <- names(attributes(x))
attr_names <- attr_names[attr_names != "names"]
attributes(l)[attr_names] <- attributes(x)[attr_names]
return(l)
}
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.