R/zzz.R

In FredHutch/DataSpaceR: Interface to 'the CAVD DataSpace'

.onAttach <- function(libname, pkgname) {
  packageStartupMessage(
    "By exporting data from the CAVD DataSpace, ",
    "you agree to be bound by the Terms of Use available on ",
    "the CAVD DataSpace sign-in page at https://dataspace.cavd.org"
  )

  netrc <- getNetrcPath()

  if (!file.exists(netrc) &&
    !exists("labkey.apiKey") &&
    Sys.getenv("DS_login") == "") {
    packageStartupMessage(
      "A netrc file is required to connect to the DataSpace. ",
      "Use `writeNetrc()` to create a new netrc file."
    )
  }
}