#' @keywords internal
multi_subtract <- function (df, first_pattern, second_pattern, suffix) {
out = df[stringr::str_detect(names(df), first_pattern)] - df[stringr::str_detect(names(df), second_pattern)]
names(out) = sapply(names(out), function(x) gsub(first_pattern, suffix, x))
return (out)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.