if (sqliteHasHttpVFS()) {
# Hypothetical remote DB (replace with a real URL for actual use):
# old <- sqliteHttpConfig(cache_size_mb = 8, prefetch_pages = 1)
# on.exit(do.call(sqliteHttpConfig, old), add = TRUE)
# con <- sqliteRemote("https://example.org/db.sqlite")
# dbGetQuery(con, "SELECT name FROM sqlite_master WHERE type='table'")
stats <- sqliteHttpStats()
str(stats)
}
Run the code above in your browser using DataLab