如何在 GitHub Secret 中將 JSON 作為 R 腳本中的環境變量傳遞給 ZE1ADBCBB92C620730B3E619F9

Question

我正在嘗試在我的 R 腳本中運行需要 JSON 進行身份驗證的操作。

我已將這兩個 JSON 存儲為 Github 秘密操作：

GMAIL_ADDRESS
GMAIL_SECRET_API

這是我調用這兩個 JSON 的 main.yml 部分

 # Run R script
    - name: execute r script # email-from-r.R
      env:
        GMAIL_SERVICE: ${{ secrets.GMAIL_SECRET_API }}
        GMAIL_ADDRESS: ${{ secrets.GMAIL_ADDRESS }}      
      run: Rscript mailer.R

在我的腳本中，我用這個來回憶這兩個文件：

GMAIL_SERVICE <- Sys.getenv("GMAIL_SECRET_API")

GMAIL_ADDRESS <- Sys.getenv("GMAIL_ADDRESS")

工作流運行但返回此錯誤：

Error: Error: Must supply either `key` and `secret` or `path`
Execution halted
Error: Process completed with exit code 1.

我很確定問題是我沒有從 Secrets 中正確獲取兩個 JSON。

這是我的腳本的完整代碼：

library(gmailr)
library(googleAnalyticsR)
library(googledrive)
library(lubridate)
library(scales)
library(tidyverse)
library(gt)
library(googleAuthR)


GMAIL_SERVICE <- Sys.getenv("GMAIL_SECRET_API")

GMAIL_ADDRESS <- Sys.getenv("GMAIL_ADDRESS")



gmailr::gm_auth_configure(path = GMAIL_SERVICE ,
                          appname = "gmailr")


gmailr::gm_auth(email = GMAIL_ADDRESS,
                path = GMAIL_SERVICE,
                scopes = "full")





TEST <-
    gm_mime() %>%
    gm_to(c(GMAIL_ADDRESS)) %>%
    gm_from(GMAIL_ADDRESS) %>%
    gm_subject(paste0("TEEEEEEEEEST", "BOOOOOOM", "-", "TEEEEEST")) %>%
    gm_text_body("TEEEEEEEST")


gm_send_message(TEST)



date <- gm_date(TEST)

date_2 <- Sys.time()

log <- paste0("The mail has been successfully sent on: ", date)

write.csv(log, file = paste0("data/Log_", date_2, ".csv"))