R/state_local_files.R

In andybega/icews: Get the ICEWS Event Data

#' @rdname state
#'
#' @param raw_file_dir Directory containing raw data files
#'
#' @export
get_local_state <- function(raw_file_dir = find_raw()) {
  files <- basename(list_local_files(raw_file_dir))

  state <- tibble(
    file_name = files
  )
  state
}

#' List the raw data file paths
#'
#' Get a list of the paths for any local raw data ".tab" files.
#'
#' @param raw_file_dir Directory containing the raw event TSV files
#' @param full_names Return the full path or only file name?
#'
#' @export
list_local_files <- function(raw_file_dir = find_raw(), full_names = TRUE) {
  o <- dir(raw_file_dir, full.names = full_names)
  # check it's all events.YYYY....tab or YYYYMMDD-icews-events.zip files
  is_df <- is_data_file(o)
  if (any(!is_df)) {
    ff <- paste0("  ", basename(o)[!is_df], collapse = "  \n")
    msg <- sprintf("unexpected non-data file(s) found in '%s':", raw_file_dir)
    msg <- paste0(c(msg, ff), collapse = "\n")
    stop(msg)
  }
  o
}