R/onLoad.R

Defines functions .onLoad

.onLoad <- function(libname, pkgname) {

  # default package options
  opts <-
    c(
      "icesSharePoint.username" = "NULL",
      "icesSharePoint.messages" = "FALSE",
      "icesSharePoint.site_collection" = "'https://community.ices.dk'",
      "icesSharePoint.site" = "''",
      "icesSharePoint.wd" = "''"
    )
  # set only those not previouslyt set
  for (i in setdiff(names(opts), names(options()))) {
    eval(parse(text = paste0("options(", i , "=", opts[i], ")")))
  }

  invisible()
}
ices-tools-prod/icesSharePoint documentation built on June 27, 2021, 5:16 p.m.