removing here()

IDEMSInternational · Oct 30, 2023 · cc4885b · cc4885b
1 parent eb1d9e5
commit cc4885b
Show file tree

Hide file tree

Showing 5 changed files with 5 additions and 4 deletions.
diff --git a/tests/testthat/.gitignore b/tests/testthat/.gitignore
@@ -0,0 +1 @@
+e-picsa-e630400792e7.json
diff --git a/tests/testthat/test-annual_rainfall_summaries.R b/tests/testthat/test-annual_rainfall_summaries.R
@@ -2,7 +2,7 @@ library(testthat)
 library(epicsawrap)
 
 # Test case 1
-epicsadata::gcs_auth_file(file = here::here("testdata/e-picsa-e630400792e7.json"))
+epicsadata::gcs_auth_file(file = "e-picsa-e630400792e7.json")
 test_1_results <- readRDS("testdata/test_1_annual_summaries.rds")
 country <- "zm"
 station_id <- "test_1"

diff --git a/tests/testthat/test-crop_success_probabilities.R b/tests/testthat/test-crop_success_probabilities.R
@@ -2,7 +2,7 @@ library(testthat)
 library(epicsawrap)
 
 # Test case 1
-epicsadata::gcs_auth_file(file = here::here("testdata/e-picsa-e630400792e7.json"))
+epicsadata::gcs_auth_file(file = "e-picsa-e630400792e7.json")
 test_1_results <- readRDS("testdata/test_1_crop_success_probabilities.rds")
 country <- "zm"
 station_id <- "test_1"

diff --git a/tests/testthat/test-season_start_probabilities.R b/tests/testthat/test-season_start_probabilities.R
@@ -2,7 +2,7 @@ library(testthat)
 library(epicsawrap)
 
 # Test case 1
-epicsadata::gcs_auth_file(file = here::here("testdata/e-picsa-e630400792e7.json"))
+epicsadata::gcs_auth_file(file = "e-picsa-e630400792e7.json")
 test_1_results <- readRDS("testdata/test_1_season_start_probabilities.rds")
 country <- "zm"
 station_id <- "test_1"

diff --git a/tests/testthat/test-total_temperature_summaries.R b/tests/testthat/test-total_temperature_summaries.R
@@ -2,7 +2,7 @@ library(testthat)
 library(epicsawrap)
 
 # Test case 1
-epicsadata::gcs_auth_file(file = here::here("testdata/e-picsa-e630400792e7.json"))
+epicsadata::gcs_auth_file(file = "e-picsa-e630400792e7.json")
 test_1_annual <- readRDS("testdata/test_1_annual.rds")
 test_1_monthly <- readRDS("testdata/test_1_monthly.rds")
 country <- "zm"