Failed to evaluate glue component

[jasbner]

I'm trying to authenticate via a service account and having issues with googlesheets4.
Authentication is working for drive but when I attempt to pull down anything via sheets I get an error listed below.

library(googledrive)
library(googlesheets4)
drive_auth(
  path = gargle::secret_decrypt_json(
    system.file("secret", "secret.json", package = "mypackage"),
    "SERVICE_KEY"
  ),
  subject = "example@gmail.com"
)
gs4_auth(token = drive_token())

ss <- drive_example_remote("chicken.csv")
drive_get(as_id(ss))
# # A dribble: 1 × 3
# name        id                                drive_resource   
# <chr>       <drv_id>                          <list>           
#   1 chicken.csv 1VOh6wWbRfuQLxbLg87o58vxJt95SIiZ7 <named list [38]>
#   > 
gs4_get(as_id(ss))
# Error:
#   ! Failed to evaluate glue component {type}
# Caused by error:
#   ! object 'type' not found
# Run `rlang::last_trace()` to see where the error occurred.
rlang::last_trace(drop = FALSE)
# <error/rlang_error>
#   Error:
#   ! Failed to evaluate glue component {type}
# Caused by error:
#   ! object 'type' not found
# ---
#   Backtrace:
#   ▆
# 1. ├─googlesheets4::gs4_get(as_id(ss))
# 2. │ └─googlesheets4:::gs4_get_impl_(as_sheets_id(ss))
# 3. │   └─gargle::response_process(raw_resp)
# 4. │     ├─gargle:::gargle_abort_request_failed(...)
# 5. │     │ └─gargle:::gargle_abort(...)
# 6. │     │   └─cli::cli_abort(...)
# 7. │     │     └─cli:::vcapply(message, format_inline, .envir = .envir)
# 8. │     │       └─base::vapply(X, FUN, FUN.VALUE = character(1), ..., USE.NAMES = USE.NAMES)
# 9. │     └─gargle (local) error_message(resp, call = call)
# 10. │       └─gargle:::reveal_details(error$details)
# 11. │         ├─base::unlist(lapply(details, reveal_detail))
# 12. │         └─base::lapply(details, reveal_detail)
# 13. │           └─gargle (local) FUN(X[[i]], ...)
# 14. │             ├─gargle::bulletize(...)
# 15. │             └─gargle:::map_chr(...)
# 16. │               └─gargle:::.rlang_purrr_map_mold(.x, .f, character(1), ...)
# 17. │                 └─base::vapply(.x, .f, .mold, ..., USE.NAMES = FALSE)
# 18. │                   └─glue (local) FUN(X[[i]], ...)
# 19. │                     └─glue::glue_data(...)
# 20. ├─glue (local) `<fn>`("type")
# 21. │ ├─.transformer(expr, env) %||% .null
# 22. │ └─glue (local) .transformer(expr, env)
# 23. │   ├─glue:::with_glue_error(...)
# 24. │   │ └─base::withCallingHandlers(...)
# 25. │   └─base::eval(expr, envir)
# 26. │     └─base::eval(expr, envir)
# 27. └─base::.handleSimpleError(...)
# 28.   └─glue (local) h(simpleError(msg, call))
# 29.     └─rlang::abort(message, parent = cnd, call = NULL)

[jennybc]

I'm not seeing the same failure as you are.

But I do have some suggestions for your code that might help us move the conversation along.

ss <- drive_example_remote("chicken.csv")
drive_get(as_id(ss))

This drive_get() just returns the same thing as its input, so I'm not sure what the goal is. Maybe just to prove that it works?

My gs4_get(as_id(ss)) command fails with a different error, sadly not very informative:

> gs4_get(as_id(ss))
Run `rlang::last_trace()` to see where the error occurred.
Error in `gs4_get_impl_()`:
! Client error: (400) INVALID_ARGUMENT
• Client specified an invalid argument. Check error message and error details for more information.
• Request contains an invalid argument.

You don't really need the as_id() call here and, in fact, it's preventing you from seeing a much better error message. So let's remove it:

> gs4_get(ss)
Run `rlang::last_trace()` to see where the error occurred.
Error in `as_sheets_id()`:
! <dribble> input must refer to a Google Sheet, i.e. a file with MIME type application/vnd.google-apps.spreadsheet.
ℹ File name: chicken.csv
ℹ File id: 1VOh6wWbRfuQLxbLg87o58vxJt95SIiZ7
✖ MIME TYPE: text/csv

This reveals the problem, which is that you're trying to read a csv file like it's a Google Sheet, which will never work.

Not sure why you're seeing the glue error, but it makes me suspect some underlying package is not up-to-date. I'd check to see if you have the latest version of glue and cli.

[jasbner]

ahh yeah I was trying to make a simple example but failed. However, even the gs4_example doesnt appear to work when I've authenticated with this service account (it does work if I authenticate via browser on my personal account). cli and glue appear to be the most up to date version so I don't think it's either of those packages.

gs4_example("deaths")
# Error:
#   ! Failed to evaluate glue component {type}
# Caused by error:
#   ! object 'type' not found
# Run `rlang::last_trace()` to see where the error occurred.

sessionInfo()
# R version 4.4.2 (2024-10-31)
# Platform: aarch64-apple-darwin20
# Running under: macOS Sequoia 15.5
# 
# Matrix products: default
# BLAS:   /System/Library/Frameworks/Accelerate.framework/Versions/A/Frameworks/vecLib.framework/Versions/A/libBLAS.dylib 
# LAPACK: /Library/Frameworks/R.framework/Versions/4.4-arm64/Resources/lib/libRlapack.dylib;  LAPACK version 3.12.0
# 
# locale:
#   [1] en_US.UTF-8/en_US.UTF-8/en_US.UTF-8/C/en_US.UTF-8/en_US.UTF-8
# 
# time zone: America/New_York
# tzcode source: internal
# 
# attached base packages:
#   [1] stats     graphics  grDevices utils     datasets  methods   base     
# 
# other attached packages:
#   [1] googledrive_2.1.1   ever_7.20.1         googlesheets4_1.1.1
# 
# loaded via a namespace (and not attached):
#   [1] vctrs_0.6.5       knitr_1.50        httr_1.4.7        cli_3.6.5         xfun_0.52         rlang_1.1.6       DBI_1.2.3         bigrquery_1.5.1   purrr_1.0.4      
# [10] promises_1.3.2    generics_0.1.3    jsonlite_2.0.0    bit_4.6.0         glue_1.8.0        gargle_1.5.2      openssl_2.3.2     askpass_1.2.1     httpuv_1.6.16    
# [19] rappdirs_0.3.3    cellranger_1.1.0  evaluate_1.0.3    tibble_3.2.1      lifecycle_1.0.4   compiler_4.4.2    dplyr_1.1.4       fs_1.6.6          Rcpp_1.0.14      
# [28] pkgconfig_2.0.3   rstudioapi_0.17.1 later_1.4.2       R6_2.6.1          tidyselect_1.2.1  pillar_1.10.2     curl_6.2.2        magrittr_2.0.3    bit64_4.6.0-1    
# [37] tools_4.4.2       withr_3.0.2      

[jennybc]

It feels like maybe the service account doesn't have necessary, basic permissions? I don't have Google auth uploaded into my brain right now, but I have some hunch that maybe the Drive and/or Sheets APIs just aren't even enabled for it? Relevant docs:

https://gargle.r-lib.org/articles/get-api-credentials.html#enable-apis

Then it feels like we are getting an error in the machinery that's trying to display a message about this failure. So two problems interacting with each other in a frustrating way.

My current main hypothesis is that the service is account is not configured correctly yet. And I guess this is tickling our error-displaying machinery in way that reveals a bug.

If you're feeling adventurous, gargle actually holds on to its last response for troubleshooting problems like this:

https://gargle.r-lib.org/articles/troubleshooting.html#how-to-inspect-the-last-response

You could dig into that object a bit and see if there's a more informative error message lurking within that we are failing to display.

If that ends up being the case, I'd love to get my hands on the .rds file via a different channel (e.g. email to my maintainer email) so I can find and fix the error-displaying bug.

[jasbner]

You're absolutely correct.

err <- gargle:::gargle_last_response()
content(err)$error$message
# [1] "Google Sheets API has not been used in project 123456789 before or it is disabled. 
# Enable it by visiting https://console.developers.google.com/apis/api/sheets.googleapis.com/overview?project=123456789 
# then retry. If you enabled this API recently, wait a few minutes for the action to propagate to our systems and retry."

The drive api must have been enabled but not the sheets API and the problem was being masked by the glue error.

I will reach out to your maintainer email.

[jennybc]

Perfect! I'm closing this but would love to have that response so I can figure out why the error- reporting machinery trips over it. You could send it to me at jenny@posit.co, which is also the email here (and on all the packages I maintain).