R/config.R

In rpc5102/rlocker: Learning Locker for Shiny

#'config
#'
#' @name config
NULL

set_locker_config <- function(config) {
  httr::set_config(
    add_headers(
      Authorization = config$auth
    )
  )
  
  if(is.null(config$language)) {
    config$language <- get_system_language_tag()
  }
  
  invisible(options(locker_config = config))
}

get_locker_config <- function() {
  return(getOption("locker_config"))
}