starting convert to packer

.Rbuildignore

@@ -3,3 +3,10 @@
 ^LICENSE\.md$
 examples/
 ^\.github$
+^srcjs$
+^node_modules$
+^package\.json$
+^package-lock\.json$
+^webpack\.dev\.js$
+^webpack\.prod\.js$
+^webpack\.common\.js$

.gitignore

@@ -4,3 +4,4 @@
 .Ruserdata
 *.Rproj
 inst/doc
+node_modules

R/capture.R

@@ -43,8 +43,6 @@ capture <- function(selector,
       `data-inputId` = inputId,
       ...
     ),
-    html_dependency_filesaver(),
-    html_dependency_domtoimage(),
     html_dependency_capture()
   )
 }

R/dependencies.R

@@ -13,9 +13,9 @@ html_dependency_capture <- function() {
   htmlDependency(
     name = "capture",
     version = "0.1.0",
-    src = list(file = "assets"),
+    src = list(file = "packer"),
     package = "capture",
-    script = "js/capture.js"
+    script = "capture-img.js"
   )
 }
 

examples/default.R

@@ -34,23 +34,23 @@ ui <- fluidPage(
       ),
       capture(
         selector = "#result-block",
-        filename = "results",
+        filename = "results-screenshot",
         icon("camera"), "Take screenshot of results",
-        options = list(bgcolor = "#FFF")
+        options = list(backgroundColor = "#FFF")
       ),
       capture(
         selector = "#result-block",
-        filename = "results",
+        filename = "results-screenshot",
         icon("camera"), "Take screenshot of results (bigger scale)",
         scale = 3,
-        options = list(bgcolor = "#FFF")
+        options = list(backgroundColor = "#FFF")
       ),
       capture(
         selector = "#result-block",
         filename = NULL, # no download client side
         icon("camera"), "Take screenshot of results (retrieve server side)",
         inputId = "screenshot",
-        options = list(bgcolor = "#FFF")
+        options = list(backgroundColor = "#FFF")
       ),
       uiOutput("out")
     )