R/event-log.R

Defines functions sd_getEventLog sd_logEvent

sd_logEvent <- function(self, private, event, ...) {
  content <- list(time = Sys.time(), event = event, ...)
  assert_that(is_all_named(content))

  private$eventLog[[length(private$eventLog) + 1]] <- content
}

sd_getEventLog <- function(self, private) {
  log <- private$eventLog

  # Log is a row-first list of lists which we need to convert to a data frame.
  # Also, rows don't all have the same column names, so we'll
  all_names <- unique(unlist(lapply(log, names)))
  names(all_names) <- all_names

  vecs <- lapply(all_names, function(nm) {
    col <- lapply(log, `[[`, nm)

    # Replace NULLs with NA so that they don't get lost in conversion from list
    # to vector.
    null_idx <- vapply(col, is.null, logical(1))
    col[null_idx] <- NA
    # Convert to list. Use do.call(c) instead of unlist() because the latter will
    # convert dates and times to numbers.
    do.call(c, col)
  })

  # Add workerId as first column
  vecs <- c(workerid = private$shinyWorkerId, vecs)

  as.data.frame(vecs, stringsAsFactors = FALSE)
}
rstudio/shinytest documentation built on Nov. 2, 2018, 8:59 a.m.