Nothing
#' @keywords internal
#' @noRd
quantilep <- function(x, perc_str) {
p <- as.numeric(sub(".*q", "",perc_str))/100
p_names <- purrr::map_chr(p, ~ paste0("q",.x*100))
p_funs <- purrr::map(p, ~ purrr::partial(stats::quantile, probs = .x, na.rm = TRUE)) %>%
purrr::set_names(nm = p_names)
return(p_funs)
}
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.