R/version.R

In reactlog: Reactivity Visualizer for 'shiny'

reactlog_upgrade <- function(log) {
  version <- attr(log, "version")
  if (is.null(version)) {
    stop("'log' is missing a 'version' attribute.  This is required.")
  }
  version <- as.character(version)
  if (identical(version, "1")) {
    return(log)
  }

  stop(
    "Versions available: 1\n",
    "Latest reactlog version: 1\n",
    "Version provided: ", version
  )
}