r - 使用两个动态输入更新表

Question

使用 iris 数据集，我试图生成一个闪亮的表格，可以根据物种（通过从下拉列表中选择）和使用滑块的样本 id 进行调整。我可以让下拉菜单工作，但不能让滑块工作。如何使两个用户输入都更改表格？

# Load Libraries

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


# Read Data 

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"),
        multiple = TRUE
      ),
      sliderInput(
        inputId = "specimen_selection",
        label = "Select specimen range",
        min = min(iris$id, na.rm = TRUE),
        max = max(iris$id, na.rm = TRUE),
        value = 2
      )),
    mainPanel(
      p("Using the selection box, you can sort through the iris specimens based on Species"),
      dataTableOutput(outputId = ("Specimen_details")
    )
  )))

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

}

shinyApp(ui = ui, server = server)

标签： rshinydatatableuser-input