#' Identity palette
#'
#' Leaves values unchanged - useful when the data is already scaled.
#'
#' @export
pal_identity <- function() {
function(x) x
}
#' @export
#' @rdname pal_identity
identity_pal <- pal_identity
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.