add pretty argument to plotly_json()

Author: cpsievert

DESCRIPTION

@@ -71,5 +71,6 @@ Suggests:
 Remotes:
   tidyverse/ggplot2
 LazyData: true
-RoxygenNote: 6.0.1
+RoxygenNote: 6.0.1.9000
+Encoding: UTF-8
 Roxygen: list(markdown = TRUE)

R/dev.R

@@ -4,16 +4,18 @@
 #' sent to plotly.js.
 #' 
 #' @param p a plotly or ggplot object.
-#' @param jsonedit use `listviewer::jsonedit` to view the JSON?
-#' @param ... other options passed onto `listviewer::jsonedit`
+#' @param jsonedit use [listviewer::jsonedit] to view the JSON?
+#' @param pretty adds indentation whitespace to JSON output. Can be TRUE/FALSE
+#' or a number specifying the number of spaces to indent. See [jsonlite::prettify].
+#' @param ... other options passed onto [listviewer::jsonedit]
 #' @export
 #' @examples 
 #'   
 #' plotly_json(plot_ly())
 #' plotly_json(plot_ly(), FALSE)
 
-plotly_json <- function(p = last_plot(), jsonedit = interactive(), ...) {
-  plotlyJSON <- to_JSON(plotly_build(p)$x, pretty = TRUE)
+plotly_json <- function(p = last_plot(), jsonedit = interactive(), pretty = TRUE, ...) {
+  plotlyJSON <- to_JSON(plotly_build(p)$x, pretty = pretty)
   if (jsonedit) {
     try_library("listviewer", "plotly_json")
     listviewer::jsonedit(plotlyJSON, mode = "form", ...)