#' Get a pre-defined database connection from Bandit.
#'
#' @export
#' @param name Name of the database you'd like to get the connection for.
#' @return Database connection string.
#' @examples
#' get_connection('mysql-prod')
#' get_connection('dw')
get_connection = function(name) {
Sys.getenv(paste0('DATABASE_', name))
}
get_credentials = function() {
url <- Sys.getenv('BANDIT_CLIENT_URL')
# remove trailing '/'
url <- gsub('/$', '', url)
list(
username=Sys.getenv('BANDIT_CLIENT_USERNAME'),
apikey=Sys.getenv('BANDIT_CLIENT_APIKEY'),
url=url
)
}
unbox_all = function(myList) {
if (length(myList)==0) {
return (myList)
}
for(i in 1:length(myList)) {
myList[[i]] <- lapply(myList[[i]], jsonlite::unbox)
}
myList
}
is_local = function() {
Sys.getenv('BANDIT_CLIENT_USERNAME')=="" || Sys.getenv('BANDIT_CLIENT_APIKEY')=="" || Sys.getenv('BANDIT_CLIENT_URL')==""
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.