R/get_file_path.R

In AgrDataSci/agera5: Toolbox for Downloading and Extracting Copernicus AgERA5 Data

#internal function to get the file path

get_file_path <- function(date_to_search, variable, statistic, time, path){

  if(check_vars_with_stat(variable)){
    prefix <- paste(variable, statistic, sep = "-")

    prefix <- paste0(prefix, "_C3S-glob-agric_AgERA5_")
  }

  if(variable == "Relative-Humidity-2m"){
    prefix <- paste(variable, time, sep = "-")

    prefix <- paste0(prefix, "_C3S-glob-agric_AgERA5_")
  }

  if(variable == "Cloud-Cover"){
    prefix <- paste(variable, "Mean", sep = "-")

    prefix <- paste0(prefix, "_C3S-glob-agric_AgERA5_")
  }

  if(isFALSE(check_vars_with_stat(variable)) && !variable %in% c("Relative-Humidity-2m", "Cloud-Cover")){
    prefix <- paste0(variable, "_C3S-glob-agric_AgERA5_")
  }

  date_pattern <- gsub("-", "", date_to_search)

  file_pattern <- paste0(prefix, date_pattern)

  target_file_path <- fs::dir_ls(path = path,
                                 regexp = file_pattern,
                                 recurse = TRUE)

  if(length(target_file_path) == 0)
    stop("File not found")


  return(target_file_path)

}