R/utils.R

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