R/covidToday.R

In ejanalysis/covidcountyshinyapp: Shiny App to Download and Plot COVID-19 Daily Data at County Resolution from NYT

#' covidToday
#'
#' @param x from covidDownload
#' @param mydate what date to use, defaults to most recent one in dataset
#' @param writecsv logical, optional, whether to write file to disk
#' @param localpath optional path where to write file
#'
#' @export
#'
covidToday <- function(x, mydate=NULL, writecsv=FALSE, localpath=getwd()) {

  if (missing(x)) {
    x <- covidDownload(writecsv = writecsv, localpath = localpath)
  }
 if (missing(mydate)) {
   asof <- max(x$date)
 }  else {
   asof <- mydate
   if (!(asof %in% x$date)) {
     warning('specified date not found in the dataset (in that format at least) so using most recent date in dataset')
     asof <- max(x$date)
     }
 }

xnow <- x[x$date == asof, ]
xnow <- xnow[order(xnow$percap), ]

# tail(xnow, 40)
# tail(xnow[!is.na(xnow$oneper), ],40)

return(xnow)
}