R/get_token.R

In ScottishCovidResponse/hdf5processing: Functions to Interact with the 'FAIR Data Pipeline'

Defines functions get_token

Documented in get_token

#' get_token
#' 
#' @keywords internal
#'
get_token <- function() {
  if (Sys.getenv("FDP_LOCAL_TOKEN") != "") {
    return(Sys.getenv("FDP_LOCAL_TOKEN"))
  }      
  readLines(file.path("~", ".fair", "registry", "token"))
}