knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "",
  fig.path = "man/figures/README-",
  out.width = "100%",
  eval = FALSE
)

library(fs)

cat_tree <- function(x, ...) {
  t <-  capture.output(dir_tree(x, ... = ...))
  t[[2]] <- paste0(" ", t[[2]])
  cat(purrr::map_chr(t[2:length(t)], ~ paste0(.x, "\n")))  
}

ecodown

R-CMD-check Lifecycle: experimental CRAN status

This package is intended for internal RStudio use.



edgararuiz/ecodown documentation built on Sept. 4, 2022, 10:25 a.m.