#' @export
`[.cpcinema` <- function(x, ...) {
x <- NextMethod()
new_palette(unclass(x), length(x), "discrete")
}
#' @export
`[[.cpcinema` <- function(x, ...) {
x <- NextMethod()
vec_cast(x, character())
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.