r - 如何使用 ggplot 在 Shinyr 中取消选择 renderPlot() 函数

Question

下面是一个基本闪亮应用程序的功能代码，它允许用户选择一列，然后绘制所选列的 ggplot::histogram()：

library(shiny)

# Define UI for application that draws a histogram
ui <- fluidPage(
  titlePanel("ggplot"),
  sidebarLayout(
    sidebarPanel(
      uiOutput("column_select")
    ),
    mainPanel(plotOutput("plot"))
  )

)

# Define server logic required to draw a histogram
server <- function(input, output){
  dat <- reactive({iris})
  output$column_select <- renderUI({selectInput("col", label = "column", choices = as.list(names(iris)), selected = "Sepal.Length")})
  output$plot <- renderPlot({ggplot(dat(), aes_string(x = input$col)) +
      geom_histogram()})


  p <- ggplot(dat(), aes_string(x = input$col)) +
    geom_histogram()

  renderPlot
}

# Run the application 
shinyApp(ui = ui, server = server)

但是，我不确定为什么我无法从 renderPlot() 中删除 ggplot() 函数并且仍然得到相同的结果。我努力了：

p <- reactive({ggplot(dat(), aes_string(x = input$col)) +
    geom_histogram()})

  outputPlot <- renderPlot({p})

但这导致没有绘制任何图。

我认为有一个简单的解决方法，但到目前为止它逃脱了我。