.onLoad <- function(libname, pkgname) {
apiKey <- Sys.getenv("GOOGLE_API_KEY", unset=NA)
if (!is.na(apiKey) && nchar(apiKey) > 0) {
authenticate(apiKey=apiKey)
}
invisible()
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.