R/covidWrite.R

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

#' covidWrite
#'
#' @param x from covidDownload
#' @param localpath local path to hard drive to store written file
#'
#' @export
#'
covidWrite <- function(x, localpath=getwd()) {
  asof <-  max(x$date)
  write.csv(x, file = file.path(localpath, paste('covid by county by day as of ', asof, '.csv', sep = '')), row.names = FALSE)
}