vignettes/rebuild.r

In wrathematics/fmlr: Fused Matrix Library for R

#!/usr/bin/env Rscript
library(rmarkdown)

rmf = function(f)
{
  if (file.exists(f))
    file.remove(f)
}

clean = function()
{
  files = dir(pattern="*.Rmd", recursive=FALSE)
  for (f in files)
    rmf(f)
}

set_path = function()
{
  while (!file.exists("DESCRIPTION"))
  {
    setwd("..")
    if (getwd() == "/home")
      stop("couldn't find package!")
  }
  
  setwd("vignettes")
}

build_vignette = function(f)
{
  f_Rmd = basename(f)
  of = sub(f_Rmd, pattern="^_", replacement="")
  rmf(of)
  
  fmt = rmarkdown::md_document(
    variant="gfm",
    preserve_yaml=TRUE,
    ext=".Rmd"
  )
  rmarkdown::render(f, output_file=of, output_dir=getwd(), output_format=fmt)
  
  invisible(TRUE)
}



# ------------------------------------------------------------------------------
set_path()
# clean()

# build_vignette("./src/_01-installation.Rmd")
# build_vignette("./src/_02-overview.Rmd")
# build_vignette("./src/_03-backends.Rmd")
# build_vignette("./src/_04-data.Rmd")
# build_vignette("./src/_05-benchmarks.Rmd")