R/xls-find.R

In lhmet/rinmetxls: Read Meteorological Data From Excel Files Distribuited By INMET

#' @title Find the pair of Excel files from a automatic weather station
#' @param file.name character vector with paths to Excel files;
#'   in general a list with path to file 2 (for more details see the vignette:
#' \code{vignette("data-org", package = "rinmetxls")})
#' @param verbose logical, should print messages? Default: TRUE
#' @return character vector of file paths; it is expected two file paths
#' @examples
#' \dontrun{
#' if(interactive()){
#'   p <- system.file("extdata/dvd_xls_files", package = "rinmetxls")
#'   pf <- list.files(
#'     p,
#'     pattern = ".*[[:punct:]]_\\.xls",
#'     recursive = TRUE,
#'     full.names = TRUE
#'   )
#'  xls_find(pf[1])
#'  xls_find(pf[2])
#'  xls_find(pf[3])
#'  }
#' }
#' @export
#' @family file functions
xls_find <- function(file.name, verbose = TRUE) {
  # coerce input to char
  file.name <- as.character(file.name)

  stopifnot(dir.exists(dirname(file.name)))
  # file.name <- pf[1]

  # station id is used to find the other Excel file
  aws_id <- metadata_ffilename(file.name)[["id"]]

  stopifnot(length(aws_id) == 1)


  if (verbose) {
    cat("\n")
    cat(toupper(aws_id), "\n")
    cat("----------------------------------------", "\n")
  }

  # sarch files using id from file name
  files_pair <- list.files(
    path = dirname(file.name),
    pattern = aws_id,
    full.names = TRUE
  )
  xls_check(files.found = files_pair, file.name, id = aws_id)

  return(files_pair)
}