R 没有图表

对于我的闪亮应用程序，我正在从ggplot切换到plotly，但当我从Rstudio运行应用程序时，绘图不会显示在浏览器中，如果我使用print（gg），则plotly会在Rstudio查看器中正确显示。如果我切换回ggplot，下面的最小示例将起作用。谢谢

用户界面

服务器.R

library(shiny,quietly = T);    library(stringr,quietly = T)
library(dplyr,quietly = T);    library(plotly,quietly = T)
library(ggplot2,quietly = T);    library(lubridate,quietly = T)
library(cranlogs,quietly = T);    library(zoo,quietly = T)
library(scales,quietly = T);    library(broom,quietly = T)
library(rworldmap,quietly = T);    library(countrycode,quietly = T)
library(data.table,quietly = T)

shinyServer(function(input, output) {
  load("CRANlog_cleaned_month.RData")   
  output$plot1 <- renderPlotly({
    dat.p <<- subset(dat,package %in% input$package)
    dat.ts <<- aggregate(times~package+month,data=dat.p,sum)
      DTmonthly <<- ggplot(dat.ts, aes(month, times, color = package)) + 
        geom_line() + xlab("Date") + scale_y_continuous(name="Number of downloads", labels = comma)
      gg <- ggplotly(DTmonthly)
      gg
  })
})  

库（闪亮，安静=T）；库（stringr，T=T）
库（dplyr，T=T）；库（plotly，悄悄地=T）
库（ggplot2，T=T）；库（lubridate，T=T）
库（cranlogs，T=T）；图书馆（动物园=T）
库（标度，单位=T）；库（扫帚，T）
库（rworldmap，T=T）；库（国家代码，默认值=T）
库（data.table=T）
shinyServer（功能（输入、输出）{
装载（“CRANlog\u cleaned\u month.RData”）
输出$plot1我通过将selectInput的名称从“plot1”更改为另一个名称来解决此问题，可能是因为plotlyOutput也使用了“plot1”。如果我只使用plotOutput，这很好。可能是因为plotlyOutput中缺少一些错误检查代码。
应该可以工作，但没有文件
“CRANlog\u cleaned\u month.RData”
没有真正的方法来判断什么是错误的。看起来很好。制作一个MWE（最小工作示例），我们可能会提供帮助。您到底做了什么？只需更改selectInput，它就可以工作了？是的，我只是更改了selectInput的名称，它就在我的案例中工作了。
library(shiny,quietly = T);    library(stringr,quietly = T)
library(dplyr,quietly = T);    library(plotly,quietly = T)
library(ggplot2,quietly = T);    library(lubridate,quietly = T)
library(cranlogs,quietly = T);    library(zoo,quietly = T)
library(scales,quietly = T);    library(broom,quietly = T)
library(rworldmap,quietly = T);    library(countrycode,quietly = T)
library(data.table,quietly = T)

shinyServer(function(input, output) {
  load("CRANlog_cleaned_month.RData")   
  output$plot1 <- renderPlotly({
    dat.p <<- subset(dat,package %in% input$package)
    dat.ts <<- aggregate(times~package+month,data=dat.p,sum)
      DTmonthly <<- ggplot(dat.ts, aes(month, times, color = package)) + 
        geom_line() + xlab("Date") + scale_y_continuous(name="Number of downloads", labels = comma)
      gg <- ggplotly(DTmonthly)
      gg
  })
})