tw_set_cache_folder(path = fs::path(tempdir(), paste(sample(letters, 24), collapse = "")))
tw_create_cache_folder(ask = FALSE)
tw_disable_cache()
df_from_api <- tw_get(id = "Q180099", language = "en")
df_from_cache <- tw_get_cached_item(
id = "Q180099",
language = "en"
)
is.null(df_from_cache) # expect TRUE, as nothing has yet been stored in cache
tw_write_item_to_cache(
item_df = df_from_api,
language = "en",
cache = TRUE
)
df_from_cache <- tw_get_cached_item(
id = "Q180099",
language = "en",
cache = TRUE
)
is.null(df_from_cache) # expect a data frame, same as df_from_api
Run the code above in your browser using DataLab