过滤需要在reactive消费者中进行，而该消费者的返回值可以写入变量。然后通过其名称和()对其进行寻址，从而启用该变量的下游使用。

---
title: "A shiny Report"
runtime: shiny
output:
  bookdown::html_document2:
    toc: true
    toc_float: true
    number_sections: false
    fig_caption: true
link-citations: yes
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE)

library(tidyverse)
library(shiny)

# data
my_data <- mtcars %>%
  mutate(name = rownames(mtcars))

selectizeInput("carsID",
               "Cars:",
               selected = "Honda Civic",
               multiple = TRUE,
               choices = my_data$name)

Show selection

renderUI(paste0(input$carsID, collapse = ", "))

my_data_filt <- reactive({
  my_data %>%
    filter(name %in% input$carsID)
})

Dynamic table

renderTable(my_data_filt())