R/onLoad.R

In ices-tools-prod/icesSharePoint: Helper functions to interact with the ICES sharepoint

.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()
}