#' @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))
}
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.