## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

## ----setup, eval=FALSE, include=FALSE-----------------------------------------
# params$date

## ----shiny, eval=FALSE--------------------------------------------------------
# library(shiny)
# library(shinyReports)
# 
# ui <- fluidPage(
#   reportButton("knit_report", label = "Generate Report")
# )
# 
# server <- function(input, output, session) {
#   renderReport(
#     inputId = "knit_report",
#     title = "My Report",
#     rmd_file = "report.Rmd",
#     params = list(date = Sys.Date())
#   )
# }
# 
# shinyApp(ui, server)