R/utils.R

In lwjohnst86/prodigenr: Research Project Directory Generator

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)})
}