report_downloader: Handler for expansion of knitr whisker tags and report...
In dgkf/scriptgloss: Functionality for creating static scripts from shiny apps

Handler for expansion of knitr whisker tags and report generation

1 2	report_downloader(file, text, format = "pdf_document", output_options = NULL)

`file`	the file name to be created
`text`	Rmarkdown file text to use to render notebook. Often the output of `report_from_template`.
`format`	the output format to be passed to `render`
`output_options`	additional output options to be passed to `render`

## Not run: 
## MyReport.Rmd (in working directory)
# ---
# title: "My Report"
# ---
#
# ```{r initialize_code}
# {{.code}}
# ```
#
# # My Plot
#
# ```{r plot}
# {{plot}}
# ```

library(shiny)

ui <- fluidPage(
  selectInput('x', 'x axis', choices = names(mtcars)),
  selectInput('y', 'y axis', choices = names(mtcars)),
  downloadButton("export", "Download Report"),
  plotOutput('plot')
)

srv <- function(input, output, session) {
  output$plot <- renderPlot({
    plot(x = mtcars[[input$x]],
         y = mtcars[[input$y]])
  })
  output$export <- downloadHandler(
    filename = 'MyReport.pdf',
    content = function(file) report_downloader(
      file,
      'MyReport.Rmd',
      generate_static_code(srv)
    )
  )
}

shinyApp(ui, srv)

## End(Not run)