1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
#' @title Get or delete mlr cache directory
#'
#' @description Helper functions to deal with mlr caching.
#' @name cache_helpers
#' @rdname cache_helpers
#' @details
#' `getCacheDir()` returns the default mlr cache directory \cr
#' `deleteCacheDir()` clears the default mlr cache directory. Custom cache
#' directories must be deleted by hand.
NULL
#' @rdname cache_helpers
#' @export
getCacheDir = function() {
rappdirs::user_cache_dir("mlr", "mlr-org")
}
#' @rdname cache_helpers
#' @export
deleteCacheDir = function() {
unlink(rappdirs::user_cache_dir("mlr", "mlr-org"), recursive = TRUE)
messagef("Successfully cleared directory '%s'.", rappdirs::user_cache_dir("mlr", "mlr-org"))
}
|
