gcs_get_object() doesn't respect googleAuthR.verbose

[juliasilge]

In rstudio/pins-r#695 I discovered that this one function doesn't respect the level of googleAuthR.verbose:

withr::with_options(
  list(googleAuthR.verbose = 4),
  {
    googleCloudStorageR::gcs_auth("~/google-pins.json")
    googleCloudStorageR::gcs_get_object(
      object_name = "big-numbers/20221220T011808Z-b89e8/big-numbers.json",
      bucket = "pins-dev",
      saveToDisk = tempfile()
    )
  }
)
#> ℹ Downloading big-numbers/20221220T011808Z-b89e8/big-numbers.json
#> ✔ Saved big-numbers/20221220T011808Z-b89e8/big-numbers.json to /var/folders/hv/…
#> 
#> [1] TRUE

^{Created on 2023-01-10 with reprex v2.0.2}

All the other functions I used seem to respect the verbosity level.