[CI] bugfix(R): Fix testthat compatibility issues with version 3.3.0 (#2524)

zhangfengcdt · web-flow · commit 3796f0e1e17f · 2025-11-24T21:42:43.000-08:00
diff --git a/R/tests/testthat.R b/R/tests/testthat.R
@@ -30,10 +30,6 @@ if (identical(Sys.getenv("NOT_CRAN"), "true")) {
   filter <- Sys.getenv("TESTTHAT_FILTER", unset = "")
   if (identical(filter, "")) filter <- NULL
 
-  reporter <- MultiReporter$new(reporters = list(
-    ProgressReporter$new(show_praise = FALSE),
-    CheckReporter$new(),
-    SummaryReporter$new(show_praise = FALSE)
-  ))
-  test_check("apache.sedona", filter = filter, reporter = reporter)
+  # Use default reporter to avoid compatibility issues with testthat 3.3.0
+  test_check("apache.sedona", filter = filter)
 }
diff --git a/R/tests/testthat/test-apply-spatial-partitioner.R b/R/tests/testthat/test-apply-spatial-partitioner.R
@@ -15,7 +15,6 @@
 # specific language governing permissions and limitations
 # under the License.
 
-context("apply spatial partition")
 
 sc <- testthat_spark_connection()
 
diff --git a/R/tests/testthat/test-bounding-box.R b/R/tests/testthat/test-bounding-box.R
@@ -15,7 +15,6 @@
 # specific language governing permissions and limitations
 # under the License.
 
-context("bounding box")
 
 test_that("bounding box object works as expected", {
   sc <- testthat_spark_connection()
diff --git a/R/tests/testthat/test-build-index.R b/R/tests/testthat/test-build-index.R
@@ -15,7 +15,6 @@
 # specific language governing permissions and limitations
 # under the License.
 
-context("build index")
 
 sc <- testthat_spark_connection()
 
diff --git a/R/tests/testthat/test-crs-transform.R b/R/tests/testthat/test-crs-transform.R
@@ -15,7 +15,6 @@
 # specific language governing permissions and limitations
 # under the License.
 
-context("CRS transform")
 
 test_that("crs_transform() works as expected", {
   sc <- testthat_spark_connection()
diff --git a/R/tests/testthat/test-data-interface-raster.R b/R/tests/testthat/test-data-interface-raster.R
@@ -15,7 +15,6 @@
 # specific language governing permissions and limitations
 # under the License.
 
-context("data interface: raster")
 
 sc <- testthat_spark_connection()
 
diff --git a/R/tests/testthat/test-data-interface.R b/R/tests/testthat/test-data-interface.R
@@ -15,7 +15,6 @@
 # specific language governing permissions and limitations
 # under the License.
 
-context("data interface")
 
 sc <- testthat_spark_connection()
 
diff --git a/R/tests/testthat/test-dbplyr-integration.R b/R/tests/testthat/test-dbplyr-integration.R
@@ -15,7 +15,6 @@
 # specific language governing permissions and limitations
 # under the License.
 
-context("dbplyr integration")
 
 sc <- testthat_spark_connection()
 
diff --git a/R/tests/testthat/test-init.R b/R/tests/testthat/test-init.R
@@ -15,7 +15,6 @@
 # specific language governing permissions and limitations
 # under the License.
 
-context("initialization")
 
 sc <- testthat_spark_connection()
 
diff --git a/R/tests/testthat/test-sdf-interface.R b/R/tests/testthat/test-sdf-interface.R
@@ -15,7 +15,6 @@
 # specific language governing permissions and limitations
 # under the License.
 
-context("sdf interface")
 
 sc <- testthat_spark_connection()
 
diff --git a/R/tests/testthat/test-spatial-join.R b/R/tests/testthat/test-spatial-join.R
@@ -15,7 +15,6 @@
 # specific language governing permissions and limitations
 # under the License.
 
-context("spatial join")
 
 sc <- testthat_spark_connection()
 
diff --git a/R/tests/testthat/test-spatial-queries.R b/R/tests/testthat/test-spatial-queries.R
@@ -15,7 +15,6 @@
 # specific language governing permissions and limitations
 # under the License.
 
-context("spatial queries")
 
 sc <- testthat_spark_connection()
 
diff --git a/R/tests/testthat/test-spatial-rdd-aggregation-fns.R b/R/tests/testthat/test-spatial-rdd-aggregation-fns.R
@@ -15,7 +15,6 @@
 # specific language governing permissions and limitations
 # under the License.
 
-context("spatial RDD aggregation functions")
 
 sc <- testthat_spark_connection()
 pt_rdd <- read_point_rdd_with_non_spatial_attrs(repartition = 11)
diff --git a/R/tests/testthat/test-viz.R b/R/tests/testthat/test-viz.R
@@ -15,7 +15,6 @@
 # specific language governing permissions and limitations
 # under the License.
 
-context("visualization")
 
 sc <- testthat_spark_connection()
 
