third

Author: kongdd

.github/workflows/test-coverage.yaml

@@ -54,6 +54,13 @@ jobs:
           extra-packages: any::covr, any::xml2
           needs: coverage
 
+      - name: setup r-reticulate
+        shell: Rscript {0}
+        run: | 
+          python = Sys.which("python")
+          writeLines(sprintf("RETICULATE_PYTHON=%s", python), Sys.getenv("GITHUB_ENV"))
+          reticulate::py_config()
+      
       - name: Test coverage
         run: |
           cov <- covr::package_coverage(

R/ee_init.R

@@ -22,15 +22,20 @@ ee_Init <- function(drive=FALSE, ...) {
 }
 
 #' @export
-ee_auth_ci <- function() {
+ee_auth_ci <- function(token = NULL) {
   ci_auth <- system.file("python/ci_auth.py", package = "rgee2")
   reticulate::source_python(ci_auth)
-  auto_Initialize()
+
+  if (is.null(token)) {
+    token = os.getenv("EARTHENGINE_TOKEN")
+  }
+  auto_Initialize(token)
+  print("ee_auth_ci: Authentication successful!")
 }
 
 #' @export
 use_backend <- function() {
-  reticulate::py_require("earthengine-api", pip = TRUE)
+  reticulate::py_require("earthengine-api")
 }
 
 #' @export

inst/python/ci_auth.py

@@ -5,10 +5,10 @@
 import google.oauth2.credentials
 
 
-def auto_Initialize():
+def auto_Initialize(token):
     # with open("token.json", "r") as f:
     #     stored = json.load(f)
-    stored = json.loads(os.getenv("EARTHENGINE_TOKEN"))
+    stored = json.loads(token)
 
     credentials = google.oauth2.credentials.Credentials(
         None,

tests/testthat/test-auth.R

@@ -5,15 +5,19 @@ test_that("auth works", {
     # ci_auth()
   }
 
+  # token <- paste(readLines("token.json", encoding = "UTF-8"), collapse = "")
+  token <- Sys.getenv("EARTHENGINE_TOKEN")
+
   tryCatch({
     python <- system("which python")
     print(python)
 
-    use_backend()
-    # Sys.setenv(RETICULATE_PYTHON = python)
+    # use_backend()
+    Sys.setenv(RETICULATE_PYTHON = python)
+    reticulate::py_config()
 
     print(system("pip list earthengine-api | grep earthengine-api"))
-    ee_auth_ci()
+    ee_auth_ci(token)
   }, error = function(e) {
     message(sprintf("%s", e$message))
   })