From 5aea4ad382bafd76ad4f7d6a3324b03b01725edd Mon Sep 17 00:00:00 2001 From: HelenaLC Date: Sat, 22 Jun 2024 14:57:50 +0200 Subject: [PATCH] fix typo --- tests/testthat/test_SpatialExperiment-coercion.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tests/testthat/test_SpatialExperiment-coercion.R b/tests/testthat/test_SpatialExperiment-coercion.R index e15fdc4..752e67d 100644 --- a/tests/testthat/test_SpatialExperiment-coercion.R +++ b/tests/testthat/test_SpatialExperiment-coercion.R @@ -47,8 +47,8 @@ test_that("SingleCellExperiment TO SpatialExperiment case 3" ,{ # case 3: passing "spatial arguments" on populated sce # giving priority to "spatial args" colData(sce) <- DataFrame(xyz) - int_colData(sce)$spatialCoords <- as.matrix(xyz[, rev(.)]) . <- c("pxl_col_in_fullres", "pxl_row_in_fullres") + int_colData(sce)$spatialCoords <- as.matrix(xyz[, rev(.)]) spe <- toSpatialExperiment(sce, spatialCoordsNames=.) expect_s4_class(spe, .spe) expect_equal(spatialCoords(spe), as.matrix(xyz[, .]))