fix unit-test failures

single-cell-data · Oct 3, 2024 · 3f1a3f0 · 3f1a3f0
1 parent 89210b5
commit 3f1a3f0
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 0 deletions.
diff --git a/apis/r/R/SOMADataFrame.R b/apis/r/R/SOMADataFrame.R
@@ -245,6 +245,10 @@ SOMADataFrame <- R6::R6Class(
           is.data.frame(values) || is_arrow_table(values) || is_arrow_record_batch(values)
       )
 
+      # Leave state unmodified
+      # TODO: this issue will automatically go away on https://github.com/single-cell-data/TileDB-SOMA/issues/3059
+      on.exit(self$reopen(mode = "WRITE"))
+
       if (is.data.frame(values)) {
         if (!is.null(row_index_name)) {
           stopifnot(

diff --git a/apis/r/tests/testthat/test-SOMADataFrame.R b/apis/r/tests/testthat/test-SOMADataFrame.R
@@ -745,6 +745,7 @@ test_that("SOMADataFrame can be updated", {
   )
   tbl0 <- tbl1
 
+
   # Error on incompatible schema updates
   tbl0$string_column <- tbl0$string_column$cast(target_type = arrow::int32()) # string to int
   expect_error(