将数据用作闪亮的参数

Question

我想将来自闪亮应用程序的数据用作Rmarkdown中的参数。我如何获取和使用数据。这是我的应用程序：

library(shiny)
library(readxl)
dat2 <-read_xlsx("data/iepp_18.xlsx")
shinyApp(    
    ui = fluidPage(
        selectInput("Ecole","Ecole", as.character(sort(unique(dat2$Nom_Ecole)))),
        downloadButton("report", "Generate report")
    ),
    server = function(input, output) {
        output$report <- downloadHandler(

            filename = "report.html",
            content = function(file) {

                tempReport <- file.path(tempdir(), "Reports.Rmd")
                file.copy("Reports.Rmd", tempReport, overwrite = TRUE)


                params <- list(base = input$Ecole)


                rmarkdown::render(tempReport, output_file = file,
                                  params = params,
                                  envir = new.env(parent = globalenv())
                )
            }
        )
    }
)

这是我的Rmd Yaml

title: "Dynamic report"
output: html_document
params:
  base: NA

是否不可能使用params $ base来对Rmd中的数据进行子集化？

``` r
 data_bulletin %>%
    filter(identification_nom_etablissement==params$base) 
```

是否可以使用参数进行子集化？ 可以在Rmarkdown中使用我闪亮的应用程序中的数据吗？