Nothing
#' Compress and Reformat JavaScript Code
#'
#' \href{https://www.npmjs.com/package/uglify-js}{UglifyJS} is a JavaScript
#' compressor/minifier written in JavaScript. It also contains tools that allow one
#' to automate working with JavaScript code.
#'
#' @rdname uglify
#' @name uglify
#' @export
#' @param text a character vector with JavaScript code
#' @param beautify prettify (instead of minify) code
#' @param ... additional arguments for the \href{http://lisperator.net/uglifyjs/compress}{optimizer}
#' or \href{http://lisperator.net/uglifyjs/codegen}{generator}.
#' @references UglifyJS2 Documentation: \url{http://lisperator.net/uglifyjs/}.
#' @examples code <- "function test(x, y){ x = x || 1; y = y || 1; return x*y;}"
#' cat(uglify_optimize(code))
#' cat(uglify_reformat(code, beautify = TRUE, indent_level = 2))
uglify_reformat <- function(text, beautify = FALSE, ...){
text <- paste(text, collapse = "\n")
js_validate_script(text)
opts <- list(...)
opts$beautify = beautify;
ct$call("UglifyJS.reformat", text, opts)
}
#' @rdname uglify
#' @export
uglify_optimize <- function(text, ...){
text <- paste(text, collapse = "\n")
js_validate_script(text)
opts <- list(...)
ct$call("UglifyJS.optimize", text, opts)
}
#' @rdname uglify
#' @export
uglify_files <- function(files, ...){
codelist <- lapply(files, function(f){
list(
file = basename(f),
code = rawToChar(readBin(f, raw(), file.info(f)$size))
)
})
fulltext <- vapply(codelist, `[[`, character(1), 'code')
js_validate_script(paste(fulltext, collapse = "\n"))
opts <- list(...)
ct$call("UglifyJS.optimizeFiles", codelist, opts)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.