Update test for RGLab/cytolib@5afbec8

RGLab · Sep 4, 2020 · 4a6883a · 4a6883a
1 parent 93956e0
commit 4a6883a
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/tests/testthat/cytoset-suite.R b/tests/testthat/cytoset-suite.R
@@ -162,7 +162,8 @@ test_that("save/load", {
   #idx by col
   tmp1 <- tempfile()
   save_cytoset(cs[, 1:2], tmp1)
-  cs1 <- load_cytoset(tmp1)
+  # For later overwrite test, this needs to be writable
+  cs1 <- load_cytoset(tmp1, backend_readonly = FALSE)
   expect_equal(colnames(cs1), colnames(cs[,1:2]))#col-idexing result is preserved
   expect_equal(range(cs1[[1]], "data"), range(cs[[1]][,1:2], "data"))#the data is correct