| presto_default | R Documentation | 
presto_default() works similarly but returns a connection on success and
throws a testthat skip condition on failure, making it suitable for use in
tests.
RPresto examples and tests connect to a default database via
dbConnect(Presto(), ...). This function checks if that
database is available, and if not, displays an informative message.
presto_default(...)
presto_has_default(...)
... | 
 Additional arguments passed on to   | 
if (presto_has_default()) {
  db <- presto_default()
  print(dbListTables(db))
  dbDisconnect(db)
} else {
  message("No database connection.")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.