vignettes/build_vignettes.R

In BayesMRA: Bayesian Multi-Resolution Gaussian Process Approximations

## Code for building large
##
##

library(filesstrings)
library(xfun)

##
## convert the original Rmd to a pre-configured Rmd
##

knitr::knit("vignettes/mra-simulation.Rmd.orig", output = "vignettes/mra-simulation.Rmd", envir = new.env())
## change the file path in the .Rmd
gsub_file("vignettes/mra-simulation.Rmd", "figure/", "")

##
## move images to the vignette folder and delete cached files
##

## list the images created by the vignette and move to the vignettes folder
# mra_images <- list.files("figure/")[grep(".svg", list.files("figure/"))]
# file.move(paste0("figure/", mra_images), destinations = "./vignettes/", overwrite = TRUE)
mra_images <- list.files("figure/")[grep(".png", list.files("figure/"))]
file.move(paste0("figure/", mra_images), destinations = "./vignettes/", overwrite = TRUE)

if(length(dir("figure/", all.files = TRUE)) ==0)
    file.remove("./figure/*")

file.remove("./figure/")
cache_files <- list.files("cache/")
file.remove(paste0("cache/", cache_files))
file.remove("./cache")



# knitr::knit("vignettes/mra-simulation.Rmd.orig", output = "vignettes/mra-simulation.Rmd")



##
## extract vignette R code
##

knitr::purl("vignettes/mra-simulation.Rmd.orig", output = "vignettes/mra-simulation.R")
# knitr::purl("vignettes/mra-simulation.Rmd.orig", output = "vignettes/mra-simulation.R")



##
## build vignettes
##

## note: you can have build errors if the file names have spaces: https://stackoverflow.com/questions/27338970/vignette-creation-on-package-build-fails-with-the-error-failed-to-locate-the-w
devtools::build_vignettes()

##
## build the documentation site
##

pkgdown::build_site()