基本的光泽不渲染图

Question

我有这个闪亮的代码，由于某种原因该图未显示。 你能帮我一下吗？ 是要在主面板中渲染的基本光泽图。 检查时间负载，但仍未绘制。

library(shiny)
library(plotly)
library(ggplot2)

ui <- fluidPage(
  (titlePanel("APP & MEP | Size (m2) ~ Hours", windowTitle = "app")),

  sidebarLayout( 
    sidebarPanel(
      checkboxGroupInput(inputId = "checkgroup",
                         label = "Select Deparments",
                         choices = c("All", "ELE", "HVAC", "MAN", "PH", "LV"),
                         selected = "All", inline = F),
      radioButtons(inputId = "radio", 
                   label =  "ADD Stat_Smooth?", 
                   choices = c("YES","NO"), 
                   inline = T),
      sliderInput(inputId = "slider",
                  label = "SPAN Setting", 
                  min = 0.2, max = 2, value = 1,
                  ticks = T)
    ),

    mainPanel(plotOutput(outputId = "plot33"))
  )
)


server <- function(input, output){

  output$plot33 <- renderPlotly({

    gg <- ggplot(sizedf, aes(SIZE, Hours)) + geom_point(aes(color = Department)) + ggtitle("Size(m2) vs Hours per department")

    p <- ggplotly(gg)
    p
  })
}

shinyApp(ui = ui, server = server)

Answer 1

我已经看过几次相同的错误。

plotlyOutput()应被使用，不plotOutput()