# nocov start
.onUnload <- function(libpath) {
gc() # Force garbage collection of connections
library.dynam.unload("odbc", libpath)
}
.onLoad <- function(libname, pkgname) {
# If TZDIR is not set we need to set it to R's timezone database on windows,
# we can use the standard timezone database elsewhere.
if (is_windows()) {
if (!nzchar(Sys.getenv("TZDIR"))) Sys.setenv("TZDIR" = file.path(R.home(), "share", "zoneinfo"))
} else {
set_odbcsysini()
}
}
# nocov end
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.