R/tsapp.R

In vjcitn/sars2death: COVID-19 data resources and analysis tools cut down for an interactive app

#' shiny app for appraisal of simple time-series models for COVID-19 incidence trajectories
#' @export
tsapp = function() {
 od = getwd()
 on.exit(setwd(od))
 uif = system.file("tsapp/ui.R", package="sars2death")
 servf = system.file("tsapp/server.R", package="sars2death")
 td = tempdir()
 setwd(td)
 file.copy(uif, ".", overwrite=TRUE)
 file.copy(servf, ".", overwrite=TRUE)
 shiny::runApp()
}