Nothing
Created: r Sys.time()
if (params$rendered_by_shiny) shiny::setProgress(0.1)
if (params$rendered_by_shiny) shiny::setProgress(0.2)
prms <- params$report_tabs out <- NULL for (i in prms) out <- c(out, knitr::knit_expand("Overview_models.Rmd"))
r paste(knitr::knit(text = out), collapse = '\n')
if (params$rendered_by_shiny) shiny::setProgress(0.3)
prms <- params$report_tabs out <- NULL for (i in prms) out <- c(out, knitr::knit_expand("Optimal_design.Rmd"))
r if ("Optimal Design" %in% params$report_selection) paste(knitr::knit(text = out), collapse = '\n')
if (params$rendered_by_shiny) shiny::setProgress(0.4)
prms <- params$report_tabs out <- NULL for (i in prms) out <- c(out, knitr::knit_expand("Simulation.Rmd"))
r if ("Simulation" %in% params$report_selection) paste(knitr::knit(text = out), collapse = '\n')
if (params$rendered_by_shiny) shiny::setProgress(0.7)
if (params$rendered_by_shiny) shiny::setProgress(0.9)
if (params$rendered_by_shiny) shiny::setProgress(1)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.