R/get_latest_warrior_data_file_names.R

In ctsit/rarrior: WARRIOR Project Functions for Reporting and Analysis

#' Gets the latest downloaded files (in terms of date) from the provided
#' from_directory, as well as the date reflected in the filenames.
#' If no arguments are provided, the directory is assumed to be the '~/Downloads/' folder.
#'
#' @param from_directory A directory where to find the latest data.
#' @return A list containing of key-value pairs
#'         returned_list[['data']] to get the data file name,
#'         returned_list[['metadata']] to get the metadata file name and,
#'         returned_list[['date']] to get the date associated with the data.
#' @export
#' @examples
#' get_latest_warrior_data_file_names()
get_latest_warrior_data_file_names <- function(from_directory='~/Downloads/warrior_data/') {
  patterns <- c("data" = "WARRIOR_DATA_20\\d\\d.*\\.csv",
                "metadata" = "WARRIOR_DataDictionary_20\\d\\d.*\\.csv",
                "date" = "\\d{4}-\\d{2}-\\d{2}")
  return(rdatil::get_latest_data_file_names(from_directory, patterns))
}