R/result_metadata_character.R

In INBO-Natura2000/n2kanalysis: Generic Functions to Analyse Data from the 'Natura 2000' Monitoring

#' @inheritParams read_result
#' @rdname result_metadata
#' @importFrom assertthat assert_that is.dir is.string noNA
#' @importFrom fs dir_ls
#' @importFrom methods setMethod
#' @importFrom purrr list_rbind map
setMethod(
  f = "result_metadata",
  signature = signature(x = "character"),
  definition = function(x, ..., base, project) {
    if (length(x) > 1) {
      map(x, result_metadata, base = base, project = project) |>
        list_rbind() -> metadata
      return(metadata)
    }
    assert_that(is.string(x), noNA(x))
    if (grepl("[[:xdigit:]]{40}", x)) {
      read_result(x = x, base = base, project = project) |>
        result_metadata() -> metadata
      return(metadata)
    }
    assert_that(is.dir(x), is.dir(path(x, "results")))
    path(x, "results") |>
      dir_ls(type = "file", regexp = "[[:xdigit:]]{40}.rds$") |>
      basename() |>
      gsub(pattern = "\\.rds$", replacement = "") |>
      result_metadata(base = dirname(x), project = basename(x))
  }
)