From f39815aa87272849f8e0c808099c4cee780c2a81 Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Thu, 3 Nov 2016 14:33:05 +0100 Subject: Static documentation rebuilt by pkgdown::build_site() Using pkgdown with PR hadley/pkgdown#212 --- test.R | 33 +++++++++++++++++++++++++++++++++ 1 file changed, 33 insertions(+) create mode 100644 test.R (limited to 'test.R') diff --git a/test.R b/test.R new file mode 100644 index 00000000..264c2239 --- /dev/null +++ b/test.R @@ -0,0 +1,33 @@ +library(pkgdown) + +debug(pkgdown:::as_pkgdown) +debug(pkgdown:::topic_index) +debug(pkgdown:::package_rd) # creates rd object (list of Rd file representations) + + +undebug(pkgdown:::rd_file) # creates rd file representations + +build_reference_index(".") + +extract_tag(rd[[1]], "tag_title") # gives "\n" +extract_tag(rd[[4]], "tag_title") # gives the title + +library(magrittr) +library(stringr) +extract_tag_local <- function(x, tag) { + x %>% + purrr::keep(inherits, tag) %>% + unlist %>% + paste(collapse = "") %>% + str_trim +} + +extract_tag_local(rd[[1]], "tag_title") +extract_tag_local(rd[[4]], "tag_title") + + +titles <- purrr::map_chr(rd, extract_tag, "tag_title") + +titles <- purrr::map_chr(rd, extract_tag_local, "tag_title") + +rd[[2]] -- cgit v1.2.1