filename argument should take precedence

Author: cpsievert

R/plotly_POST.R

@@ -39,7 +39,7 @@ plotly_POST <- function(x, filename = NULL, fileopt = "overwrite",
                         sharing = c("public", "private", "secret")) {
   x <- plotly_build(x)
   # try our damndest to assign a sensible filename
-  x$filename <- x$filename %||% as.character(x$layout$title) %||% 
+  x$filename <- filename %||% x$filename %||% as.character(x$layout$title) %||% 
       paste(c(x$layout$xaxis$title, x$layout$yaxis$title, x$layout$zaxis$title), 
             collapse = " vs. ") %||% paste("Created at", Sys.time())
   if (!is.null(x$fileopt)) {

inst/examples/flexdashboard/index.Rmd

@@ -54,7 +54,7 @@ states_map <- map_data("state")
 g <- ggplot(crimesm, aes(map_id = state)) +
   geom_map(aes(fill = value), map = states_map) +
   expand_limits(x = states_map$long, y = states_map$lat) +
-  facet_wrap( ~ variable)
+  facet_wrap( ~ variable) + theme_void()
 ggplotly(g)
 ```