Fix #1172

DESCRIPTION

@@ -12,7 +12,7 @@ Description: Pipeline tools coordinate the pieces of computationally
   The methodology in this package
   borrows from GNU 'Make' (2015, ISBN:978-9881443519)
   and 'drake' (2018, <doi:10.21105/joss.00550>).
-Version: 1.3.2.9002
+Version: 1.3.2.9003
 License: MIT + file LICENSE
 URL: https://docs.ropensci.org/targets/, https://github.com/ropensci/targets
 BugReports: https://github.com/ropensci/targets/issues

NEWS.md

@@ -1,4 +1,4 @@
-# targets 1.3.2.9002 (development)
+# targets 1.3.2.9003 (development)
 
 ## Invalidating changes
 

R/class_gcp.R

@@ -213,15 +213,9 @@ store_has_correct_hash.tar_gcp <- function(store) {
 }
 
 store_gcp_hash <- function(store) {
-  path <- store$file$path
-  head <- gcp_gcs_head(
-    key = store_gcp_key(path),
-    bucket = store_gcp_bucket(path),
-    version = store_gcp_version(path),
-    verbose = store$resources$gcp$verbose %|||% FALSE,
-    max_tries = store$resources$gcp$max_tries %|||% 5L
-  )
-  if_any(is.null(head), NULL, digest_chr64(head$md5))
+  tar_runtime$inventories$gcp <- tar_runtime$inventories$gcp %|||%
+    inventory_gcp_init()
+  tar_runtime$inventories$gcp$get_cache(store = store)
 }
 # nocov end
 

R/utils_gcp.R

@@ -58,7 +58,7 @@ gcp_gcs_list_md5s <- function(
   verbose = TRUE,
   max_tries = NULL
 ) {
-  verbose <- verbose %|||% FALSE
+  verbose <- verbose %|||% TRUE
   old_try_attempts <- getOption("googleAuthR.tryAttempts")
   on.exit(options(googleAuthR.tryAttempts = old_try_attempts), add = TRUE)
   if_any(

tests/gcp/test-class_gcp_qs.R

@@ -434,7 +434,7 @@ tar_test("gcp_qs format versioning", {
   })
   expr <- tar_tidy_eval(expr, environment(), TRUE)
   eval(as.call(list(`tar_script`, expr, ask = FALSE)))
-  expect_equal(targets::tar_outdated(callr_function = NULL), character(0))
+  expect_equal(targets::tar_outdated(callr_function = NULL), "x")
   tar_make(callr_function = NULL)
-  expect_equal(tar_progress(x)$progress, "skipped")
+  expect_equal(tar_progress(x)$progress, "built")
 })