R/zzz.R

In rsconnect: Deploy Docs, Apps, and APIs to 'Posit Connect', 'shinyapps.io', and 'RPubs'

defaultMaxBundleSize <- 5 * 1024^3
defaultMaxBundleFiles <- 10000

setOptionDefaults <- function(...) {
  # Resolve dots
  defaultOptions <- list(...)

  # Get current options
  currentOptions <- options()

  # Remove any options which have already been set
  alreadySet <- names(defaultOptions) %in% names(currentOptions)
  defaultOptions <- defaultOptions[!alreadySet]

  # Set the defaults
  options(defaultOptions)
}

.onLoad <- function(libname, pkgname) {
  setOptionDefaults(
    rsconnect.max.bundle.size = defaultMaxBundleSize,
    rsconnect.max.bundle.files = defaultMaxBundleFiles
  )
}