build.R

local({
  # fall back on '/' if baseurl is not specified
  baseurl = servr:::jekyll_config('.', 'baseurl', '/')
  knitr::opts_knit$set(base.url = baseurl)
  # fall back on 'kramdown' if markdown engine is not specified
  markdown = servr:::jekyll_config('.', 'markdown', 'kramdown')
  # see if we need to use the Jekyll render in knitr
  if (markdown == 'kramdown') {
    knitr::render_jekyll()
  } else knitr::render_markdown()

  # input/output filenames are passed as two additional arguments to Rscript
  a = commandArgs(TRUE)
  d = gsub('^_|[.][a-zA-Z]+$', '', a[1])
  knitr::opts_chunk$set(
    fig.path   = sprintf('figure/%s/', d),
    cache.path = sprintf('cache/%s/', d)
  )
  # set where you want to host the figures (I store them in my Dropbox Public
  # folder, and you might prefer putting them in GIT)
  if (Sys.getenv('USER') == 'noway') {
    # these settings are only for myself, and they will not apply to you, but
    # you may want to adapt them to your own website
    knitr::opts_chunk$set(fig.path = sprintf('%s/', gsub('^.+/', '', d)))
    knitr::opts_knit$set(
      base.dir = '~/Dropbox/Public/jekyll/',
      base.url = 'https://www.dropbox.com/sh/orkmbexqh3c0n0y/AADNo0xV6H0UB1tehmt2QTIla?dl=0/jekyll/'
    )
  }
  knitr::opts_knit$set(width = 70)
  knitr::knit(a[1], a[2], quiet = TRUE, encoding = 'UTF-8', envir = .GlobalEnv)
})