tools/uglifyjs.R

In sawyerda/bookdown: Authoring Books and Technical Documents with R Markdown

in_dir = knitr:::in_dir

uglifyjs = function(file, args = NULL) {
  if (Sys.which('uglifyjs') == '') return(1)
  owd = setwd(dirname(file)); on.exit(setwd(owd), add = TRUE)
  file = basename(file)
  out = shQuote(bookdown:::with_ext(file, c('.min.js', '.min.map')))
  system2('uglifyjs', c(shQuote(file), '-o', out[1], '--source-map', out[2], args))
}

in_dir('inst/resources/gitbook/js', uglifyjs('app.js'))