# \donttest{
if (interactive()) {
cache_connection <- pool::dbPool(
RSQLite::SQLite(), # or e.g. odbc::odbc(),
Driver = ":memory:", # or e.g. "MariaDB",
Host = "localhost",
database = "example_db",
UID = "example_user",
PWD = "example_pwd"
)
tw_connect_to_cache(cache_connection)
db_settings <- list(
driver = "MySQL",
host = "localhost",
server = "localhost",
port = 3306,
database = "tidywikidatar",
user = "secret_username",
pwd = "secret_password"
)
tw_connect_to_cache(db_settings)
}
# }
Run the code above in your browser using DataLab