闪亮 - 动态添加部分到rmarkdown报告

Question

每次单击actionButton printNewPlot时，我想添加一个新的报告部分，并添加新标题和新图形图。我怎样才能做到这一点？

app.R

library(igraph) 

shinyApp(
     ui = fluidPage(
     sliderInput("slider", "Slider", 1, 100, 50), 
     actionButton("printNewPlot", "Print new plot to report"), 
     downloadButton("report", "Download report") 
    ), 
     server = function(input, output) { 
     output$report <- downloadHandler(
      # For PDF output, change this to "report.pdf" 
      filename = "report.html", 
      content = function(file) { 
      # Copy the report file to a temporary directory before processing it, in 
      # case we don't have write permissions to the current working dir (which 
      # can happen when deployed). 
      tempReport <- file.path(tempdir(), "report.Rmd") 
      file.copy("report.Rmd", tempReport, overwrite = TRUE) 

      # Set up parameters to pass to Rmd document 
      params <- list(n = input$slider) 

      # Knit the document, passing in the `params` list, and eval it in a 
      # child of the global environment (this isolates the code in the document 
      # from the code in this app). 
      rmarkdown::render(tempReport, output_file = file, 
           params = params, 
           envir = new.env(parent = globalenv()) 
      ) 
      } 
     ) 
     } 
    ) 

report.Rmd

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

# I want a new title each time that printNewPlot is clicked 

```{r} 

plot(make_ring(params$n)) 
``` 

# If printNewPlot is clicked again, a new title must appear here 

```{r} 
#alongside a new plot 
plot(make_ring(params$n)) 
``` 

Answer 1

你需要两样东西：一个对象来存储您的输入列表;并在您的RMD中进行循环打印，以接收存储的输入作为参数。请注意，我没有make_ring()函数，所以通过一个错误。

对于应用程序：

server = function(input, output) { 

RV <- reactiveValues(Clicks=c()) 

observeEvent(input$slider, { 

    #create object for clicked polygon 
    click <- input$slider 
    RV$Clicks <-c(RV$Clicks,click) 
    print(unique(RV$Clicks)) 

}) 

output$report <- downloadHandler(
    # For PDF output, change this to "report.pdf" 
    filename = "report.html", 
    content = function(file) { 
    # Copy the report file to a temporary directory before processing it, in 
    # case we don't have write permissions to the current working dir (which 
    # can happen when deployed). 
    tempReport <- file.path("report.Rmd") 
    #file.copy("report.Rmd", tempReport, overwrite = TRUE) 

    # Set up parameters to pass to Rmd document 
    params <- list(n = RV$Clicks) 

    # Knit the document, passing in the `params` list, and eval it in a 
    # child of the global environment (this isolates the code in the document 
    # from the code in this app). 
    rmarkdown::render(tempReport, output_file = file, 
         params = params, 
         envir = new.env(parent = globalenv()) 
    ) 
    } 
) 

} ）

对于RMD文件

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

```{r grouping_loop, include=TRUE, echo=FALSE, results='asis'} 

n <- params$n 

for (i in n){ 
    cat('\n') 
    cat("# ", i, " \n") 
    print(
    i 
) 
    cat('\n') 
    cat('\n') 
} 

```