is_rproj_folder <- function() {
rprojroot::is.root_criterion(rprojroot::is_rstudio_project)
}
viz_project_tree <- function(path) {
withr::with_dir(fs::path_dir(path),
{fs::dir_tree(basename(path), all = TRUE)})
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.