R/get_defaults.R

In fdrennan/ndex: What the Package Does (One Line, Title Case)

Defines functions get_defaults

Documented in get_defaults

#' get_defaults
#' @example
get_defaults <- function(id = NULL) {
  r <- connect_redis()
  defaults <- r$GET(id)
  if (is.null(defaults)) {
    defaults <- list()
  } else {
    defaults <- fromJSON(defaults)
  }
  defaults
}