inst/doc/caching.R

In tidywikidatar: Explore 'Wikidata' Through Tidy Data Frames

## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

## ----setup--------------------------------------------------------------------
library(tidywikidatar)

## -----------------------------------------------------------------------------
tw_enable_cache()

## ----eval=FALSE---------------------------------------------------------------
# tw_set_cache_folder(path = fs::path(
#   fs::path_home_r(),
#   "R",
#   "tw_data"
# ))
# tw_create_cache_folder()

## ----eval = FALSE-------------------------------------------------------------
# tw_enable_cache(SQLite = FALSE)
# tw_set_cache_db(
#   driver = "MySQL",
#   host = "localhost",
#   port = 3306,
#   database = "tidywikidatar",
#   user = "secret_username",
#   pwd = "secret_password"
# )
# 
# 
# # for testing, consider running a local database e.g. with:
# # docker run --name tidywikidatar_db -p 3306:3306 -e MYSQL_ROOT_PASSWORD=secret_root_password -e MYSQL_USER=secret_username -e MYSQL_PASSWORD=secret_password -e MYSQL_DATABASE=tidywikidatar mysql:latest

## -----------------------------------------------------------------------------
tw_get_cache_table_name(type = "item", language = "en")

## ----eval=FALSE---------------------------------------------------------------
# db <- tw_connect_to_cache()
# 
# 
# tables_v <- DBI::dbListTables(conn = db)
# 
# # for search cache tables
# purrr::walk(
#   .x = tables_v[stringr::str_starts(string = tables_v, "tw_search_item")],
#   .f = function(x) {
#     tw_index_cache_search(table_name = x)
#   }
# )
# 
# # for item cache tables
# purrr::walk(
#   .x = tables_v[stringr::str_starts(string = tables_v, "tw_item")],
#   .f = function(x) {
#     tw_index_cache_item(table_name = x)
#   }
# )