ggplotly(NULL, 'msg') and plotly_build(NULL, 'msg') now return an div('msg') rather than error, fixes #1116

Author: cpsievert

DESCRIPTION

@@ -66,8 +66,7 @@ Suggests:
     png,
     IRdisplay
 Remotes:
-  tidyverse/ggplot2,
-  r-spatial/sf
+  tidyverse/ggplot2
 LazyData: true
 RoxygenNote: 6.0.1
 Roxygen: list(markdown = TRUE)

NAMESPACE

@@ -21,6 +21,7 @@ S3method(geom2trace,GeomText)
 S3method(geom2trace,GeomTile)
 S3method(geom2trace,default)
 S3method(ggplot,plotly)
+S3method(ggplotly,"NULL")
 S3method(ggplotly,ggmatrix)
 S3method(ggplotly,ggplot)
 S3method(ggplotly,plotly)
@@ -30,6 +31,7 @@ S3method(layout,matrix)
 S3method(layout,plotly)
 S3method(layout,shiny.tag.list)
 S3method(mutate_,plotly)
+S3method(plotly_build,"NULL")
 S3method(plotly_build,gg)
 S3method(plotly_build,list)
 S3method(plotly_build,plotly)
@@ -229,6 +231,7 @@ importFrom(grDevices,extendrange)
 importFrom(grDevices,rgb)
 importFrom(graphics,layout)
 importFrom(htmltools,browsable)
+importFrom(htmltools,div)
 importFrom(htmltools,tagList)
 importFrom(htmltools,tags)
 importFrom(htmlwidgets,createWidget)

R/ggplotly.R

@@ -68,6 +68,11 @@ ggplotly <- function(p = ggplot2::last_plot(), width = NULL, height = NULL,
   UseMethod("ggplotly", p)
 }
 
+#' @export
+ggplotly.NULL <- function(...) {
+  htmltools::browsable(htmltools::div(...))
+}
+
 #' @export
 ggplotly.plotly <- function(p = ggplot2::last_plot(), width = NULL, height = NULL,
                             tooltip = "all", dynamicTicks = FALSE, 

R/imports.R

@@ -10,7 +10,7 @@
 #' @importFrom htmlwidgets createWidget sizingPolicy saveWidget onRender prependContent
 #' @importFrom lazyeval f_eval is_formula all_dots is_lang f_new
 #' @importFrom tibble as_tibble
-#' @importFrom htmltools browsable tagList tags
+#' @importFrom htmltools browsable tagList tags div
 #' @importFrom purrr transpose
 #' @importFrom tools file_ext file_path_sans_ext
 #' @importFrom data.table as.data.table setorderv

R/plotly_build.R

@@ -20,6 +20,11 @@ plotly_build <- function(p, registerFrames = TRUE) {
   UseMethod("plotly_build")
 }
 
+#' @export
+plotly_build.NULL <- function(...) {
+  htmltools::browsable(htmltools::div(...))
+}
+
 #' @export
 plotly_build.list <- function(p, registerFrames = TRUE) {
   plotly_build(as_widget(p))