尝试根据 Shiny App 中的用户输入更新表格

Question

我试图让它在用户选择标本范围和物种时，表格将只显示该范围。

下面的代码创建表和输入，但两者之间似乎没有通信。我错过了什么？

加载库

library(shiny)
library(tidyverse)
library(tidytext)
library(glue)
library(plotly)

读取数据

iris <- read_rds("iris.rds")

iris

ui <- fluidPage(
  titlePanel("Flower dimensions by species"),
  sidebarLayout(
   sidebarPanel(
      selectInput(
        inputId = "species",
        label = "Select species",
        choices = c("setosa", "versicolor", "virginica")
      ),
      sliderInput(
        inputId = "specimen_selection",
        label = "Select specimen range",
        min = min(iris$id),
        max = max(iris$id),
        value = 50
      )
    ),
    mainPanel(
      dataTableOutput(outputId = "Specimen_details")
    )
  )
)

server <- function(input, output) {
  output$Specimen_details <- renderDataTable(iris)
}

闪亮的应用程序

shinyApp(ui = ui, server = server)

Answer 1

我不知道 iris$id 是什么，但问题是 renderDataTable() 没有“听”的输入，所以表是静态的。

library(shiny)
library(tidyverse)

data(iris)

ui <- fluidPage(
    titlePanel("Flower dimensions by species"),
    sidebarLayout(
        sidebarPanel(
            selectInput(
                inputId = "species",
                label = "Select species",
                choices = c("setosa", "versicolor", "virginica"),
                multiple = TRUE
            )
        ),
        mainPanel(
            dataTableOutput(outputId = "Specimen_details")
        )
    )
)

server <- function(input, output) {
    output$Specimen_details <- renderDataTable({dplyr::filter(iris, Species %in% input$species)})
}

shinyApp(ui = ui, server = server)