R/onAttach.R

In ices-tools-prod/icesConnect: Provides User Tokens for Access to ICES Web Services

.onAttach <- function(libname, pkgname) {

  # default package options
  user <-
    suppressMessages(
      suppressWarnings(
        token_user()
      )
    )

  if (is.null(user)) {
    packageStartupMessage("icesConnect running with no token.")
  } else {
    packageStartupMessage("icesConnect running as: ", user)
  }

  invisible()
}