Defines functions .onAttach

.onAttach <- function(libname, pkgname) {
  netrc <- ifelse(.Platform$OS.type == "windows", "~/_netrc", "~/.netrc")

  if (!file.exists(netrc) &&
    !exists("labkey.sessionCookieName") &&
    !exists("apiKey", where = Rlabkey:::.lkdefaults) &&
    Sys.getenv("ISR_login") == "") {
    packageStartupMessage("A .netrc file is required to connect to ImmuneSpace. For more information on how to create one, refer to the Configuration section of the introduction vignette.")

Try the ImmuneSpaceR package in your browser

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

ImmuneSpaceR documentation built on Nov. 8, 2020, 4:55 p.m.