Индикатор выполнения для вязания документов через блестящий - PullRequest
Новая
       8

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

1 голос
/ 02 апреля 2019

Я пытаюсь поставить индикатор выполнения вокруг моей блестящей downloadHandler ().Индикатор выполнения должен отображать состояние рендеринга rmarkdown HTML

. Я нашел эту информацию на GitHub (https://github.com/rstudio/shiny/issues/1660), но не смог заставить ее работать. Если я не определил среду, файл не может быть связан.

app.R 

library(shiny)
library(rmarkdown)

ui <-  fluidPage(
  sliderInput("slider", "Slider", 1, 100, 50),
  downloadButton("report", "Generate report"),
  textOutput("checkrender")
)
server <-  function(input, output, session) {
  output$checkrender <- renderText({
     if (identical(rmarkdown::metadata$runtime, "shiny")) {
       TRUE
     } else {
       FALSE
     }
  })

  output$report <- downloadHandler(
    filename = "report.html",
    content = function(file) {

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

      params <- list(n = input$slider)

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

shinyApp(ui = ui, server = server)

report.Rmd 

---
title: "Dynamic report"
output: html_document
params:
  n: NA
---

```{r}
params$n
```

A plot of `params$n` random points.

```{r}
 plot(rnorm(params$n), rnorm(params$n))
```
...