get_access_token to use Sys.getenv()

[SymbolixAU]

As well as set_token(), if the user has an environment variable set, get_access_token() should (could) also look for it

Something like

get_access_token <- function(api = "mapbox") {
  api <- getOption("mapdeck")[['mapdeck']][[api]]
  if(is.null(api) ) api <- Sys.getenv("MAPBOX_TOKEN")
  if(is.null(api) ) api <- Sys.getenv("MAPBOX_KEY")
  if(is.null(api) ) api <- Sys.getenv("MAPBOX_API_KEY")
  if(is.null(api) ) api <- Sys.getenv("MAPBOX_API_TOKEN")
  if(is.null(api) ) api <- Sys.getenv("MAPBOX")
  return(api)
}

TODO

• update docs & articles

[MichaelChirico]

perfect chance for a switch() statement

NVM. just use sys.getenv() takes a vector and then which(!nzchar())

[SymbolixAU]

@MichaelChirico what would be the input to the switch?

(I see this more as a 'dumb' search for a token)

[MichaelChirico]

I'm dumb & just waking up; edited

[SymbolixAU]

good to know Sys.getenv() takes a vector though!

[SymbolixAU]

this is what I've gone for

[SymbolixAU]

reconsider this based on comments here