R/session_tracking.R

Defines functions conn_session_get conn_session_set

conn_session_context <- new.env(parent = emptyenv())

conn_session_set <- function(id, vals = list()) {
  conn_session_context[[id]] <- vals
}

conn_session_get <- function(id) {
  if (id == "") {
    return(NULL)
  }
  conn <- conn_session_context[[id]]
  if (is.null(conn)) {
    stop("No metadata was found for this connection")
  } else {
    conn
  }
}
edgararuiz/connections documentation built on Oct. 6, 2021, 8:48 a.m.