использовать данные в качестве параметров от блестящих - PullRequest
Новая
       7

использовать данные в качестве параметров от блестящих

0 голосов
/ 14 октября 2018

Я хочу использовать данные из моего блестящего приложения в качестве параметров в 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

Разве невозможно поместить данные в моем Rmd с параметрами $ base? 

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

Не возможно ли подмножество с параметрами?Можно ли использовать данные из моего блестящего приложения в Rmarkdown?

...