@@ -150,6 +150,7 @@ pkgplan_async_download_internal <- function(self, private, what, which) {
150150what $ download_status <- vcapply(dls ," [[" " download_status"
151151what $ download_error <- lapply(dls ,function (x )x $ download_error [[1 ]])
152152what $ file_size <- vdapply(dls ," [[" " file_size"
153+ what $ used_cached_binary <- vlapply(dls ," [[" " used_cached_binary"
153154 class(what )<- c(" pkgplan_downloads" what ))
154155 attr(what ," metadata" $ download_start <- start
155156 attr(what ," metadata" $ download_end <- Sys.time()
@@ -197,9 +198,16 @@ download_remote <- function(
197198 ) {
198199 stop(" Failed to download" res $ type ," package" res $ package )
199200 }
201+
202+ dlres <- res
200203if (! grepl(" ^Had" s )&& ! identical(s ," Got" && ! identical(s ," Current"
201204s <- " Got"
202- dlres <- res
205+ if (grepl(" ^Had-binary-" s )) {
206+ dlres $ used_cached_binary <- TRUE
207+ s <- " Had"
208+ }else {
209+ dlres $ used_cached_binary <- FALSE
210+ }
203211dlres $ fulltarget <- target
204212dlres $ fulltarget_tree <- target_tree
205213dlres $ download_status <- s
@@ -208,6 +216,7 @@ download_remote <- function(
208216dlres
209217 })$ catch(error = function (err ) {
210218dlres <- res
219+ dlres $ used_cached_binary <- NA
211220dlres $ fulltarget <- target
212221dlres $ fulltarget_tree <- target_tree
213222dlres $ download_status <- " Failed"
@@ -304,16 +313,17 @@ download_ping_if_no_sha <- function(
304313 length(rver )== 1
305314 ) {
306315# # Try to find a binary in the cache
316+ cplt <- current_r_platform()
307317bin <- cache $ package $ copy_to(
308318target ,
309319package = resolution $ package ,
310320version = resolution $ version ,
311- platform = current_r_platform() ,
321+ platform = cplt ,
312322built = TRUE ,
313323rversion = rver
314324 )
315325if (nrow(bin )) {
316- return (async_constant(" Had"
326+ return (async_constant(paste0( " Had-binary- " , cplt ) ))
317327 }
318328 }
319329