# 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()
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.