Nothing
# functions to retrieve pandemics historical data
# M.Ponce
# covid19.analytics
pandemics.loaddata <- function(tgt.file="pandemics.RDS",
acknowledge=TRUE, show=FALSE,
src.descr='') {
#' internal function to retrieve historical data on pandemics
#'
#' @param tgt.file which data set to read
#' @param acknowledge displays details on the data sources
#' @param show displays data
#' @param src.descr description of the source of the data
#'
#' @return data.frame
#'
#'
#' @importFrom DT datatable
#'
covid19.pckg <- 'covid19.analytics'
pnds.RDS <- system.file("extdata",tgt.file, package=covid19.pckg, mustWork = TRUE)
if (file.exists(pnds.RDS)) {
pnd.data <- readRDS(pnds.RDS)
if (acknowledge) message("Data obtained from",src.descr)
if (show) print(datatable(pnd.data))
# update Death.toll for COVID-19 ongoing pandemic
c19.data <- covid19.data()
nameCol <- which(grepl(toupper("Name.of.Pandemic"),toupper(names(pnd.data))))
pnd.data[ pnd.data[,nameCol]=="CoViD-19","Death.toll"] <- sum(c19.data$Deaths)
return(pnd.data)
} else {
stop("CRITICAL Error:", tgt.file, " missing!")
}
}
pandemics.data <- function(acknowledge=TRUE, show=FALSE, tgt='pandemics') {
#' function to retrieve historical pandemics data
#'
#' @param tgt which data set to read -- options are 'pandemics' OR 'pandemics_vaccines'
#' @param acknowledge displays details on the data sources
#' @param show displays data
#'
#' @return data.frame
#'
#' @export
#'
if (tgt=='pandemics') {
src.descr <- "Pandemic historical records -- data from https://www.visualcapitalist.com/history-of-pandemics-deadliest/"
tgt <- 'pandemics.RDS'
} else if (tgt=='pandemics_vaccines') {
src.descr <- "Pandemics vaccine development times -- data from https://www.visualcapitalist.com/the-race-to-save-lives-comparing-vaccine-development-timelines/"
tgt <- 'pandemics_vaccines.RDS'
} else {
stop("Unrecognized option! Possible options for tgt are 'pandemics' OR 'pandemics_vaccines'")
}
return(pandemics.loaddata(tgt, acknowledge, show, src.descr))
}
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.