RPostgres examples and tests connect to a default database via
dbConnect(Postgres()). This function checks if that
database is available, and if not, displays an informative message.
postgresDefault() works similarly but returns a connection on success and
throws a testthat skip condition on failure, making it suitable for use in
tests.
postgresHasDefault(...)
postgresDefault(...)Additional arguments passed on to DBI::dbConnect()
if (postgresHasDefault()) {
db <- postgresDefault()
print(dbListTables(db))
dbDisconnect(db)
} else {
message("No database connection.")
}
#> Could not initialise default postgres database. If postgres is running
#> check that the environment variables PGHOST, PGPORT,
#> PGUSER, PGPASSWORD, and PGDATABASE, are defined and
#> point to your database.
#> No database connection.