R/has_token.R

Defines functions has_token

has_token <- function(username) {
  user_files <- list.files(config_dir())

  return(
    length(user_files) && paste0(username, ".dcf") %in% user_files
  )
}

Try the icesConnect package in your browser

Any scripts or data that you put into this service are public.

icesConnect documentation built on June 8, 2025, 10:53 a.m.