_build.R

library(tidyverse)
library(fs)

chapters <- setdiff(yaml::read_yaml("_bookdown.yml")$rmd_files, "index.Rmd")
chapters_md <- path("_oreilly", path_ext_set(chapters, ".md"))
names(chapters_md) <- path_ext_remove(path_file(chapters_md))

# Build book --------------------------------------------------------------

render_clean <- function(path, ...) {
  message("Rendering ", path)
  callr::r(function(...) rmarkdown::render(...), list(path, ...), spinner = TRUE)
}

format <- rmarkdown::md_document(variant = "markdown-fenced_code_attributes-raw_attribute")
format$pandoc$args <- c(format$pandoc$args, "--wrap=preserve")

Sys.setenv(CI = "true") # don't rebuild demos
chapters %>% walk(
  render_clean,
  output_format = format,
  output_dir = "_oreilly"
)

# Convert from md to asciidoc ---------------------------------------------

replace_lines <- function(file, pattern, replacement, comments = FALSE) {
  str_replace_all(file, regex(pattern, multiline = TRUE, comments = comments), replacement)
}

# Regular expressions mostly contributed by Nicholas Adams, O'Reilly
md2asciidoc <- function(file) {
  # Headings with and without ids
  file <- replace_lines(file, r"(
    ^\#\ \(PART\\\*\) # standard part marker
    (.*?)\            # title
    \{\#
      ([-a-zA-Z]+)         # id
      (\ .unnumbered)?
    \}
    )", "[part]\n== \\1", comments = TRUE)
  file <- replace_lines(file, '(^# )(.*?)(\\{#)(.*?)(\\})', '[[\\4]]\n== \\2')     # Chapter heading with ID
  file <- replace_lines(file, '(^# )(.*?)(\\{#)(.*?)(\\})', '[[\\4]]\n== \\2')     # Chapter heading with ID
  file <- replace_lines(file, '(^## )(.*?)(\\{#)(.*?)(\\})', '[[\\4]]\n=== \\2')   # A-Head with ID
  file <- replace_lines(file, '(^## )(.*?)', '=== \\2')                            # A-Head no ID
  file <- replace_lines(file, '(^### )(.*?)(\\{#)(.*?)(\\})', '[[\\4]]\n==== \\2') # B-Head with ID
  file <- replace_lines(file, '(^### )(.*?)', '==== \\2')                          # B-Head no ID

  # Code blocks
  file <- replace_lines(file, '(^ *)(```)(.*?)(\n)((.|\n)*?)(```)', '\\1[source,\\3]\n\\1----\n\\5----')

  # Figures
  file <- replace_lines(file, '(<img src=")(.*?)(")(.*?)(/>)(\n)(<p class="caption">)\n(.*?)\n(</p>)', '.\\8\nimage::\\2["\\8"]')
  file <- replace_lines(file, '(<img src=")(.*?)(")(.*?)(/>)', 'image::\\2[]')
  file <- replace_lines(file, '(::: \\{.figure\\})((.|\n)*?)(:::)', '\\2') # Remove figures

  # Cross refs
  file <- replace_lines(file, '(Section )(\\\\@ref\\()(.*?)(\\))', '<<\\3>>') # Section
  file <- replace_lines(file, '(Chapter )(\\\\@ref\\()(.*?)(\\))', '<<\\3>>') # Chapter
  file <- replace_lines(file, '(Figure )(\\\\@ref\\()(fig:)(.*?)(\\))', '<<fig-\\4>>') # Figures

  # Other formatting
  file <- replace_lines(file, '(::: \\{.rmdnote\\})((.|\n)*?)(:::)', '****\\2****') # Sidebar
  file <- replace_lines(file, '(<https:)(.*?)(>)', 'https:\\2[]') # Links
  file <- replace_lines(file, '(\\[.*?\\])(\\()(https?:)(.*?)(\\))', '\\3\\4\\1') # Links with anchor text
  file <- replace_lines(file, '(\\[\\^.*?\\])((.|\n)*?)(\\1: )(.*?)(\n)', 'footnote:[\\5]\\2') # Footnotes
  file
}

asciidoc <- chapters_md %>% map(~ md2asciidoc(read_file(.)))

walk2(asciidoc, path_ext_set(chapters_md, ".asciidoc"), write_file)

# Copy over images ------------------------------------------------------------

dir_copy("demos", "_oreilly")
file_delete(dir_ls("_oreilly/demos", recurse = T, glob = "*.rds"))

dir_copy("diagrams", "_oreilly")
file_delete(dir_ls("_oreilly/diagrams", recurse = T, glob = "*.graffle"))

dir_copy("images", "_oreilly")


# Copy everything into O'Reilly git repo ----------------------------------
# https://atlas.oreilly.com/oreillymedia/mastering-shiny

system("cp -r _oreilly/* ../oreilly")