Fix cache_prune() and friends for board_url() (#734)

* Recurse just a little, to find all possible pin versions * Update NEWS
rstudio · Apr 19, 2023 · 02483d0 · 02483d0
1 parent 79226cb
commit 02483d0
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git 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
@@ -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"))]
 }