appendPlot uses appendPlotly.

code.R

@@ -18,12 +18,12 @@ doId <- function(input) {
   if(is.null(dates_to_drop)) dates_to_drop <- ""
   response <- list()
 
-  appendPlot <- function(item) {
-    response <<- c(response, list(ggplotly(item)))
-  }
   appendPlotly <- function(item) {
     response <<- c(response, list(item))
   }
+  appendPlot <- function(item) {
+    appendPlotly(ggplotly(item))
+  }
   dates_to_drop=as.list(strsplit(dates_to_drop, ","))[[1]]
   dates_to_drop=strptime(dates_to_drop, format="%Y-%m-%d")
   dates_to_drop=ymd(dates_to_drop)