#' prepare header by appending "Bearer" to the api_key
#'
#' @param api_key string
#' @export
prepare_header <- function(api_key){
paste("Bearer", api_key)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.