当使用ggvis时，情节没有显示

Question

在我的Shiny应用程序中使用ggvis渲染绘图时遇到问题。

在ui.R：

 mainPanel(
  tabsetPanel(
    tabPanel("Plot", plotOutput("coolplot")))

在server.R：

  output$coolplot <- renderPlot({
if (is.null(filtered())) {
  return()
}
filtered() %>% ggvis(~Alcohol_Content, fill := "#fff8dc") %>% 
  layer_histograms(width = 1, center = 0)
})

当我使用ggvis时，情节会显示在我的RStudio查看器窗格中但不会显示在窗口中（当我将其推到shinyapps.io时，情节不会显示）如果我使用ggplot2代替ggvis。