Add brotli import (#204)

Author: rpkyle

DESCRIPTION

@@ -20,7 +20,8 @@ Imports:
   digest,
   base64enc,
   mime,
-  crayon
+  crayon,
+  brotli
 Suggests:
   testthat
 Collate:

NAMESPACE

@@ -12,6 +12,7 @@ import(dashHtmlComponents)
 importFrom(R6,R6Class)
 importFrom(assertthat,assert_that)
 importFrom(base64enc,base64encode)
+importFrom(brotli,brotli_compress)
 importFrom(digest,sha1)
 importFrom(fiery,Fire)
 importFrom(fiery,combined_log_format)

R/dash.R

@@ -22,7 +22,7 @@ Dash <- R6::R6Class(
 
     #' @description
     #' Create and configure a Dash application.
-    #' @param server The web server used to power the application. Must be a [fiery::Fire] object.
+    #' @param server [fiery::Fire] object. The web server used to power the application.
     #' @param assets_folder Character. A path, relative to the current working directory,
     #' for extra files to be used in the browser. All .js and
     #'  .css files will be loaded immediately unless excluded by `assets_ignore`,

R/imports.R

@@ -11,4 +11,5 @@
 #' @importFrom utils getFromNamespace
 #' @importFrom stats setNames
 #' @importFrom tools file_ext
+#' @importFrom brotli brotli_compress
 NULL

R/utils.R

@@ -329,8 +329,8 @@ insertIntoCallbackMap <- function(map, inputs, output, state, func, clientside_f
                                           clientside_function=clientside_function
                                           )
   if (length(map) >= 2) {
-    ids <- lapply(names(map), function(x) dash:::getIdProps(x)$ids)
-    props <- lapply(names(map), function(x) dash:::getIdProps(x)$props)
+    ids <- lapply(names(map), function(x) getIdProps(x)$ids)
+    props <- lapply(names(map), function(x) getIdProps(x)$props)
 
     outputs_as_list <- mapply(paste, ids, props, sep=".", SIMPLIFY = FALSE)