在 Shiny 中基于用户输入的过滤不起作用

Question

这里是 Shiny 的新用户。这是一个非常简单的模式。但它不起作用，也没有显示任何错误。

当我使用子集函数时，结果相同。

这是我的代码：

library(shiny)
library(dplyr)

# Define UI for application that draws a histogram
ui <- fluidPage(

    sidebarLayout(
        sidebarPanel(
            selectInput("variable", "Variable:",colnames(iris))
        ),

        mainPanel(
            tableOutput("table")
        )
    )
)

server <- function(input, output) {

    output$table <- renderTable({
        
        iris %>% dplyr::filter(input$variable>=5)
        
        
    })
}

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

Answer 1

input$variable 是一个字符，您可以在此处使用.data 代词将其用作列值。

library(dplyr)
library(shiny)

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      varSelectInput("variable", "Variable:",iris)
    ),
    mainPanel(
      tableOutput("table")
    )
  )
)

server <- function(input, output) {
  output$table <- renderTable({
    iris %>% dplyr::filter(.data[[input$variable]]>=5)
  })
}

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