Move annotation boxing to plotly_build() so it works for offline mode

Author: cpsievert

R/plotly.R

@@ -309,6 +309,11 @@ plotly_build <- function(l = last_plot()) {
     idx <- names(d) %in% get_boxed() & sapply(d, length) == 1
     if (any(idx)) x$data[[i]][idx] <- lapply(d[idx], I)
   }
+  # ugh, annotations _must_ be an _array_ of object(s)...
+  a <- x$layout$annotations
+  if (!is.null(a) && !is.null(names(a))) {
+    x$layout$annotations <- list(x$layout$annotations)
+  }
   # search for keyword args in traces and place them at the top level
   kwargs <- lapply(x$data, function(z) z[get_kwargs()])
   if (length(kwargs) == 1) kwargs <- c(kwargs, kwargs)

R/plotly_POST.R

@@ -48,11 +48,6 @@ plotly_POST <- function(x) {
       "plot from api" 
   }
   if (is.null(kwargs$fileopt)) kwargs$fileopt <- "new"
-  # ugh, annotations _must_ be an _array_ of object(s)...
-  a <- kwargs$layout$annotations
-  if (!is.null(a) && !is.null(names(a))) {
-    kwargs$layout$annotations <- list(kwargs$layout$annotations)
-  }
   # construct body of message to plotly server
   bod <- list(
     un = verify("username"),