get_results_dir <- function(adir) {
rn <- stringr::str_sub(adir, 1, nchar(adir) - nchar(basename(adir)))
rn <- paste0(rn, "results")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.