Plot_ly函数未在闪亮的App中显示图

Question

我正在使用R版本3.6.0。 当我尝试使用闪亮的App内部的绘图来构建绘图时，它仅显示空白。 同样，当我自己运行plotly函数时，只有当我在新窗口中打开它时，它才会显示在查看器中。

library(shiny)
library(plotly)
library(datasets)


shinyApp(

ui <- fluidPage(plotlyOutput("plot1")),

server <- function(input, output) {

p <- plot_ly(mtcars, x = ~mpg, y = ~wt, type = 'scatter', mode = 'markers')

output$plot1 <- renderPlotly({p})

}
)