## ✔ Key could be verified via a test request
## ℹ The provided key will be available for this R session
## ℹ Add `STATCUBE_KEY_EXT = XXXX` to "~/.Renviron" to set the key
## persistently. Replace `XXXX` with your key
STATcubeR allows you to cache responses from the STATcube REST API. This means, for example, that responses for the /table endpoint can be reused.
Setup
Caching is disabled by default. In order to activate or deactivate
caching, use the functions sc_cache_enable()
and
sc_cache_disable()
#> Caching will be available for this session. Add
#>
#> STATCUBE_CACHE = TRUE
#> STATCUBE_CACHE_DIR = "~/.STATcubeR_cache"
#>
#> to your .Renviron to enable caching persistently.
The caching directory can be displayed or changed using
sc_cache_dir()
#> [1] "~/.STATcubeR_cache"
sc_cache_dir("~/.cache/STATcubeR/api")
sc_cache_dir()
#> [1] "~/.cache/STATcubeR/api"
Using the cache
Caching will affect all calls to sc_table()
and
sc_schema()
as well as their “derived” functions:
sc_table_saved()
, sc_table_custom()
,
sc_schema_db()
, sc_schema_catalogue()
.
If the same resource is requested several times, the last valid API response is reused. Invalid responses (such as 404 responses) will not be added to the cache.
Cache files always contain unparsed API responses as returned by
httr::GET()
or httr::POST()
. Responses are
stored in an rds
format. If caching is enabled, the
corresponding cache files to an object of class sc_schema
or sc_table
can be retrieved using
sc_cache_files()
.
sc_example("accomodation") %>% sc_table(language = "both") %>% sc_cache_files()
#> [1] "~/.cache/STATcubeR/api/3Ks85P6Vxkk-GGbnYJd6d3+st8A=.rds"
#> [2] "~/.cache/STATcubeR/api/vM1s-as1gKR9YGp25eRQQeIEosY=.rds"
sc_schema_catalogue() %>% sc_cache_files()
#> [1] "~/.cache/STATcubeR/api/a1nJzuFIzQxUJT5mZcPhhjiGs9I=.rds"
Note that the first call to sc_cache_files()
returned
two paths. Since the table was requested in two languages, two API
responses are necessary to construct the table object.
The content of the cache files can be parsed using
readRDS()
and httr::content()
. This gives
direct access to the API response in a list()
format. For
example, the following syntax can be used to extract the database info
from the response.
sc_example("accomodation") %>% sc_table() %>% sc_cache_files() %>%
readRDS() %>% httr::content() %>% .[["database"]] %>% str()
#> List of 4
#> $ id : chr "detouextregsai"
#> $ uri : chr "str:database:detouextregsai"
#> $ label : chr "Accomodation statistics as of 1974 according to seasons"
#> $ annotationKeys:List of 1
#> ..$ : chr "Q"
Cleaning the cache
Cache files can be deleted individually using the paths returned by
sc_cache_files()
. Alternatively, use
sc_cache_clear()
to delete all files from the cache.
sc_cache_clear()
#> deleted 12 entries from the cache
Should I use caching?
If you are using STATcubeR interactively, the answer is probably no. However, when building applications that rely on STATcube data caching can be a useful way to decrease the traffic with the STATcube server. Another use case for caching is if you are writing rmarkdown documents that rely on STATcube data. Caching makes those documents both reproducible and quicker to render.
Please note that there is currently no reliable way to invalidate the cache. Therefore, API responses will be reused even if resources get updated on the server.