R/logs.R

In gargoyle: An Event-Based Mechanism for 'Shiny'

.logs <- new.env()
.logs$log <- data.frame(
  what = character(0),
  time = character(0),
  stringsAsFactors = FALSE
)

#' Handle logs
#'
#' Get / Clear the logs of all the time the `trigger()` functions are launched.
#'
#' @return A data.frame of the logs.
#' @export
#' @rdname logs
#' @examples
#' if (interactive()){
#'   get_gargoyle_logs()
#'   clear_gargoyle_logs()
#' }
get_gargoyle_logs <- function(){
  return(.logs$log)
}
#' @export
#' @rdname logs
clear_gargoyle_logs <- function(){
  .logs$log <- data.frame(
    what = character(0),
    time = character(0),
    stringsAsFactors = FALSE
  )
}