stringify JSON before passing to R

Author: cpsievert

R/ggplotly.R

@@ -315,7 +315,7 @@ gg2list <- function(p, width = NULL, height = NULL, source = "A") {
           # npc is on a 0-1 scale of the _entire_ device, 
           # but these units _should_ be wrt to the plotting region
           # multiplying the offset by 2 seems to work, but this is a terrible hack
-          offset <- 2 * offset
+          offset <- 1.75 * offset
           x <- if (xy == "x") 0.5 else offset
           y <- if (xy == "x") offset else 0.5
           gglayout$annotations <- c(

R/print.R

@@ -40,6 +40,10 @@ as.widget <- function(x, ...) {
     list(b = 40, l = 60, t = 25, r = 10),
     p$layout$margin %||% list()
   )
+  p$config$modeBarButtonsToRemove <- modifyList(
+     list("sendDataToCloud"),
+     p$config$modeBarButtonsToRemove %||% list()
+  )
   p$base_url <- get_domain()
   # customize the JSON serializer (for htmlwidgets)
   attr(p, 'TOJSON_FUNC') <- to_JSON

R/shiny.R

@@ -53,17 +53,5 @@ event_data <- function(event = c("plotly_hover", "plotly_click", "plotly_selecte
          "from within a reactive shiny context.")
   }
   val <- session$input[[sprintf(".clientValue-%s-%s", event[1], source)]]
-  
-  # TODO: report this!
-  if (event[1] == "plotly_selected" && is.character(val)) {
-    nms <- unique(names(val))
-    d <- list()
-    for (i in nms) {
-      d[[i]] <- val[names(val) %in% i]
-    }
-    # TODO: try to convert numerics?
-    data.frame(d, stringsAsFactors = FALSE)
-  } else  {
-    val
-  }
+  if (is.null(val)) val else jsonlite::fromJSON(val)
 }

inst/htmlwidgets/plotly.js

@@ -59,7 +59,10 @@ HTMLWidgets.widget({
           attachKey("key");
           return obj; 
         });
-        Shiny.onInputChange(".clientValue-" + eventType + "-" + x.source, d);
+        Shiny.onInputChange(
+          ".clientValue-" + eventType + "-" + x.source, 
+          JSON.stringify(d)
+        );
       };
     };