R/analysis_catalog_run.R

In wuxi-nextcode/gorr: Genuity Science service API for R

# Analysis catalog run
# ------------------
#
# Analysis catalog run status

# AnalysisCatalogRun class constructor
# A local object representing an analysis catalog run response from the phenotype
# catalog service.
#
# Please refer to the API Documentation for the phenotype catalog service.
#
# In addition to the ones documented here, this object has at least these attributes:
#
# * name - Analysis Catalog Run name
# * state - the state of the Analysis Catalog Run
# * created_at - Timestamp when the analysis catalog run was first created
# * updated_at - Timestamp when the analysis catalog run was last updated
# * ended_at - Timestamp when the analysis catalog run ended (entered 'failed' or 'completed' state)
AnalysisCatalogRun <- function(data, conn){
    structure(data, class = "analysis_catalog_run", conn=conn)
}

#' @export
print.analysis_catalog_run <- function(x, ...) {
    bullet <- purrr::partial(cli::cat_bullet, bullet = " ")
    item_name <- function(x) paste0("$", x, ": ")
    cli::cat_rule(left = ("Analysis Catalog Run"))

    bullet("$name: ", x$name)
    x <- purrr::list_modify(x, "name" = NULL) %>% purrr::compact()
    purrr::walk2(x, names(x), ~bullet(item_name(.y), .x))
}