R/check_token.R

check_token <- function() {

  if (is.null(getOption('rArcREST.token'))) {
    return(FALSE)
  } else if (esri_datetime(getOption('rArcREST.expires')) < Sys.time()) {
    return(FALSE)
  } else {
    return(TRUE)
  }
}
jgrew/rArcREST documentation built on May 19, 2019, 9:26 a.m.