Nothing
#' @title plotcases
#' @description Plots just the cases data.
#' @param data The data frame with cases.
plotcases <- function(data){
p <- ggplot(data=data, aes_string('time'))+
geom_line(aes_string(y='cases'),colour='dodgerblue',size=1) +
theme_bw() + theme(legend.position = "none") +
xlab('year')+ylab('cases')
return(p)
}
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.