In PetterHopp/NVIpackager: Tools to facilitate Development of NVIverse Packages

Further documentation

Help

The full list of all available functions and datasets can be accessed by typing ``` {r helptext, message=FALSE, warnings=FALSE, echo=FALSE, prompt = FALSE, comment = ""} helptext <- paste0('help(package = "', NVIpkg, '")') cat(helptext, sep="", fill = TRUE)

##### Vignettes

Consult the vignettes for task-oriented help.
``` {r vignettetext, message=FALSE, warnings=FALSE, echo = FALSE, prompt = FALSE, comment = ""} 
vignettetext <- paste0('vignette(package = "', NVIpkg, '")')
cat(vignettetext, sep="", fill = TRUE)

# pkg_vignettes <- NVIpackager::get_vignettes(path = file.path(pkg_path, "vignettes"))
# pkg_vignettes <- paste0("-  ", pkg_vignettes, "  \n")
# pkg_vignettes <- paste0("  \n  \n", paste(pkg_vignettes, collapse = ""), "  \n")
pkg_vignettes <- tools::pkgVignettes(dir = pkg_path)
pkg_vignette_titles <- rep(NA, length(pkg_vignettes$docs))

for (i in c(1:length(pkg_vignettes$docs))) {
# for (i in c(1:3)) {
  pkg_vignette_titles[i] <- tools::vignetteInfo(pkg_vignettes$docs[i])$title
  if (grepl("\\.Rmd$", pkg_vignettes$docs[i], ignore.case = TRUE)) {
    pkg_vignette_titles[i] <- paste(pkg_vignette_titles[i], "(html)")
    }
  if (grepl("\\.pdf\\.asis$", pkg_vignettes$docs[i], ignore.case = TRUE)) {
    pkg_vignette_titles[i] <- paste(pkg_vignette_titles[i], "(pdf)")
  }
}
pkg_vignette_titles <- pkg_vignette_titles[order(pkg_vignette_titles)]
pkg_vignette_titles <- paste0("-  ", pkg_vignette_titles, "  \n")
pkg_vignette_titles <- paste0("  \n  \n", paste(pkg_vignette_titles, collapse = ""), "  \n")