added option to gzip json

DESCRIPTION

@@ -22,6 +22,7 @@ Roxygen: list(markdown = TRUE)
 RoxygenNote: 7.3.2
 Imports: 
     htmlwidgets,
+    jsonlite,
     magrittr
 Depends: 
     R (>= 2.10)

NAMESPACE

@@ -12,5 +12,6 @@ importFrom(htmlwidgets,createWidget)
 importFrom(htmlwidgets,shinyRenderWidget)
 importFrom(htmlwidgets,shinyWidgetOutput)
 importFrom(htmlwidgets,sizingPolicy)
+importFrom(jsonlite,as_gzjson_b64)
 importFrom(magrittr,"%>%")
 importFrom(utils,modifyList)

NEWS.md

@@ -1,3 +1,3 @@
-# uPlot (development version)
+# uPlot v0.0.0.9300
 
 * Updated uplot to 1.6.30.

R/uPlot.R

@@ -6,13 +6,15 @@
 #'  a `data.frame` where first column is the x-axis and the others the series to plot.
 #' @param options Options to generate the plot.
 #' @param ... Additional arguments.
+#' @param use_gzipped_json Use [jsonlite::as_gzjson_b64()] to compress JSON data.
 #' @param width,height A numeric input in pixels.
 #' @param elementId Use an explicit element ID for the widget.
 #'
 #' @return An `htmlwidget` object of class `"uPlot"`.
 #'
 #' @importFrom htmlwidgets createWidget sizingPolicy
 #' @importFrom grDevices palette
+#' @importFrom jsonlite as_gzjson_b64
 #'
 #' @export
 #'
@@ -30,7 +32,13 @@
 #'     )
 #'   )
 #' )
-uPlot <- function(data, options = list(), ..., width = NULL, height = NULL, elementId = NULL) {
+uPlot <- function(data,
+                  options = list(), 
+                  ...,
+                  use_gzipped_json = FALSE,
+                  width = NULL, 
+                  height = NULL, 
+                  elementId = NULL) {
 
   options <- as.list(options)
   series_nms <- names(data)
@@ -48,10 +56,11 @@ uPlot <- function(data, options = list(), ..., width = NULL, height = NULL, elem
 
   x <- list(
     config = list(
-      data = data,
+      data = if (use_gzipped_json) as_gzjson_b64(data) else data,
       options = options,
       ...
     ),
+    use_gzipped_json = use_gzipped_json,
     series_nms = series_nms
   )
 

package.json

@@ -23,6 +23,7 @@
   "homepage": "https://github.com/pvictor/uPlot#readme",
   "devDependencies": {
     "css-loader": "^6.7.1",
+    "pako": "^2.1.0",
     "style-loader": "^3.3.1",
     "uplot": "^1.6.30",
     "webpack": "^5.73.0",

srcjs/widgets/uPlot.js

@@ -3,6 +3,7 @@ import uPlot from "uplot";
 import "uplot/dist/uPlot.min.css";
 import * as utils from "../modules/utils";
 import { stackedChart } from "../modules/stack";
+import { ungzip } from "pako";
 
 const resizer = el => {
   const func = (u, init) => {
@@ -118,6 +119,14 @@ HTMLWidgets.widget({
         options.width = width;
         options.height = height;
         data = x.config.data;
+        if (x.use_gzipped_json) {
+          const gezipedData = atob(data);
+          const gzipedDataArray = Uint8Array.from(gezipedData, c => c.charCodeAt(0));
+          const ungzipedData = ungzip(gzipedDataArray);
+          const decodedData = new TextDecoder().decode(ungzipedData);
+          data = JSON.parse(decodedData);
+        }
+        console.log(data);
         if (x.stacked) {
           if (!options.hooks)
             options.hooks = {};