getBalance <- function(address){
url <- paste0(options$url, "/api/accounts/getBalance/?address=", address)
as.numeric(content(GET(url = url))$balance) / options$scaling
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.