R/ShinyApp没有在浏览器中显示plot_ly,但在查看器窗格中仅显示图形

Sac*_*han 6 r shiny plotly shinydashboard

我面临的问题与R/Shiny图中未提及 的浏览器相同

但在我的情况下,reactivePlot()不起作用.它显示

错误,即"reactivePlot已弃用.请改用renderPlot."

代码不会抛出任何错误.它工作正常.问题仅在于在浏览器中显示图表图表.我在所有浏览器上尝试过它,图形显示在查看器窗格而不是浏览器上,但如果我绘制其他图表,如barplot,它很容易在浏览器上显示.我无法解决问题!! 帮帮我!!提前致谢!!!!

Sac*_*han 7

这是一个如何解决我的问题的例子.

ui <- dashboardPage(
  dashboardHeader(title = "Basic dashboard"),
  dashboardSidebar(),
  dashboardBody(
   fluidRow(
    box(plotlyOutput("plot1", height = "400px", width = "600px"))   
   )
  )
)
server <- function(input, output) {
set.seed(100)
d <- diamonds[sample(nrow(diamonds), 1000), ]
output$plot1 <- renderPlotly({
  plot_ly(d, x = ~carat, y = ~price, color = ~carat,
        size = ~carat, text = ~paste("Clarity: ", clarity))    
 })
}
shinyApp(ui = ui, server = server)
Run Code Online (Sandbox Code Playgroud)