R/zzz.R

In jessecambon/tidygeocoder: Geocoding Made Easy

# Set default options() - used in geo() and reverse_geo() functions
.onLoad <- function(libname, pkgname) {
  op <- options()
  op.tidygeocoder <- list(
    tidygeocoder.progress_bar = TRUE,
    tidygeocoder.verbose = FALSE,
    tidygeocoder.quiet = FALSE
  )
  toset <- !(names(op.tidygeocoder) %in% names(op))
  if (any(toset)) options(op.tidygeocoder[toset])

  invisible()
}