test_queries <- function(con) {
values <- list()
values$count <- DBI::dbGetQuery(con, "SELECT count(*) from people")[1, 1]
values
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.