R/get_squid.R

In squids: Short Quasi-Unique Identifiers (SQUIDs)

#' @returns The saved SQUID.
#' @rdname saving_squids
#' @export
get_squid <- function(namespace = NULL) {
  if (is.null(namespace)) {
    optionName <- "squids_saved_SQUID";
  } else {
    optionName <- paste0("squids_", namespace);
  }
  res <- getOption(optionName);
  if (!is.null(res)) {
    class(res) <- c("squids", class(res));
  }
  return(res);
}