R/observatory-domain_layer-events.R

In harell/github.explorer: Discover and Explore the Relationships Between R Packages and R Users

#' @title System Events
#' @export
#' @examples
#' # events contains the following events:
#' ls(events)
events <- new.env()


# Queries -----------------------------------------------------------------
events$FailedToQueryRepo <- function(context) {
    invisible(glue("[\033[31mx\033[39m] Failed to retrieve `{context}` information"))
}

events$SucceededToQueryRepo <- function(context) {
    invisible(glue("[\033[32mv\033[39m] Retrieved `{context}` information"))
}

events$FailedToQueryUser <- function(context) {
    invisible(glue("[\033[31mx\033[39m] Failed to retrieve `{context}` information"))
}

events$SucceededToQueryUser <- function(context) {
    invisible(glue("[\033[32mv\033[39m] Retrieved `{context}` information"))
}