diff --git a/NEWS.md b/NEWS.md index a648508b..a6aefd30 100644 --- a/NEWS.md +++ b/NEWS.md @@ -14,6 +14,8 @@ * Added new `headers` argument for `board_url()`, mostly for authentication, as well as new board for Connect vanity URLs `board_connect_url()` (#732). +* Fixed bug in `cache_prune()` to correctly find caches for `board_url()` (#734). + # pins 1.1.0 ## Breaking changes diff --git a/R/cache.R b/R/cache.R index 5c677fc7..2f97f2d0 100644 --- a/R/cache.R +++ b/R/cache.R @@ -70,9 +70,7 @@ cache_boards <- function() { } cache_versions <- function() { - pins <- fs::dir_ls(cache_boards(), type = "directory") - versions <- fs::dir_ls(pins, type = "directory") - + versions <- fs::dir_ls(cache_boards(), recurse = 2, type = "directory") versions[fs::file_exists(fs::path(versions, "data.txt"))] }