Add support functions for GeoKey/GeoDoc (and remove precommit…)

.Rbuildignore

@@ -3,7 +3,6 @@
 ^\.Rproj\.user$
 ^\.github$
 ^\.lintr$
-^\.pre-commit-config\.yaml$
 ^_pkgdown\.yml$
 ^data-raw$
 ^docs$

DESCRIPTION

@@ -21,6 +21,7 @@ Imports:
     glue,
     here,
     janitor,
+    jsonlite,
     knitr,
     lifecycle,
     magrittr,
@@ -53,4 +54,4 @@ Config/Needs/website: nenuial/geopkg
 Encoding: UTF-8
 LazyData: true
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.3.2.9000
+RoxygenNote: 7.3.1

NAMESPACE

@@ -26,6 +26,8 @@ export(gvz_matu)
 export(gvz_matu_data)
 export(gvz_matu_oraux)
 export(gvz_md_to_latex)
+export(gvz_quarto_get_presentation_yaml)
+export(gvz_quarto_make_presentation_yaml)
 export(gvz_quarto_setup)
 export(gvz_render_diagrams)
 export(gvz_render_multiple)

R/quarto_utils.R

@@ -62,3 +62,49 @@ gvz_walk_multiple <- function(template, output_dir, ...) {
 gvz_quarto_setup <- function() {
   knitr::opts_chunk$set(dev.args = c(bg = "transparent"))
 }
+
+
+#' Make a simple yaml file for all presentations
+#'
+#' @returns NULL
+#' @export
+#'
+#' @examplesIf interactive()
+#' # Not run: only work in quarto projects
+#'
+#' gvz_quarto_make_presentation_yaml()
+#'
+gvz_quarto_make_presentation_yaml <- function() {
+  get_title <- function(path) {
+    title <- rmarkdown::yaml_front_matter(path)$title
+    url <- fs::path(fs::path_ext_remove(path), ext = "html")
+    tibble::tibble(url = url, title = title)
+  }
+
+  fs::dir_ls(".", recurse = TRUE, regexp = "\\d{1,2}-.*?/index.qmd") |>
+    purrr::map(get_title) |>
+    purrr::list_rbind() |>
+    jsonlite::toJSON() |>
+    jsonlite::parse_json() |>
+    yaml::as.yaml() |>
+    readr::write_file("presentations.yml")
+}
+
+#' Gets presentation yaml file from GeoKey
+#'
+#' @param path Path where the yaml file gets downloaded to
+#' @param prefix Prefix for the path on GeoKey
+#'
+#' @returns NULL
+#' @export
+#'
+#' @examplesIf interactive()
+#' # Not run: only work in quarto projects
+#'
+#' gvz_quarto_get_presentation_yaml("Presentations/", "DF")
+gvz_quarto_get_presentation_yaml <- function(path, prefix) {
+  download.file(
+    paste0("http://key.geoviews.ch/", prefix, "-", path, "/presentations.yml"),
+    paste0(path, "/Presentations/presentations.yml")
+  )
+}

inst/WORDLIST

@@ -0,0 +1,50 @@
+aut
+bookdown
+BugReports
+burkhard
+Burkhard
+chunkhooks
+Config
+cre
+downlit
+dplyr
+fs
+geodata
+GeoKey
+geopkg
+geotools
+geovizr
+ggeo
+ggplot
+github
+gmail
+http
+https
+jsonlite
+kableExtra
+knitr
+Knitr
+LazyData
+lifecycle
+magick
+magrittr
+nenuial
+Nenuial
+ORCID
+pdftools
+purrr
+ragg
+readr
+rlang
+rmarkdown
+Rmd
+rnotion
+Roxygen
+RoxygenNote
+stringr
+tibble
+tidyr
+tinytex
+tufte
+xfun
+yaml