|
a |
|
b/tests/testthat/test-spatialpoints.R |
|
|
1 |
# Testing functions of manipulating spatialpoints #### |
|
|
2 |
test_that("spatialpoints", { |
|
|
3 |
|
|
|
4 |
# get data |
|
|
5 |
data("visium_data") |
|
|
6 |
|
|
|
7 |
# get spatial points |
|
|
8 |
expect_equal(head(vrSpatialPoints(visium_data)), |
|
|
9 |
c("AAAGGCTCTCGCGCCG-1_Assay1","AAATGGCCCGTGCCCT-1_Assay1","AAATTACACGACTCTG-1_Assay1","AAGACATACGTGGTTT-1_Assay1", |
|
|
10 |
"ACCTACTATAAATCTA-1_Assay1", "ACGCGGGCCAAGGACA-1_Assay1")) |
|
|
11 |
expect_equal(head(vrSpatialPoints(visium_data, assay = "Assay1")), |
|
|
12 |
c("AAAGGCTCTCGCGCCG-1_Assay1","AAATGGCCCGTGCCCT-1_Assay1","AAATTACACGACTCTG-1_Assay1","AAGACATACGTGGTTT-1_Assay1", |
|
|
13 |
"ACCTACTATAAATCTA-1_Assay1", "ACGCGGGCCAAGGACA-1_Assay1")) |
|
|
14 |
|
|
|
15 |
# subset on spatial points |
|
|
16 |
spatialpoints <- vrSpatialPoints(visium_data) |
|
|
17 |
visium_data_sub <- subset(visium_data, spatialpoints = spatialpoints[1:5]) |
|
|
18 |
|
|
|
19 |
expect_equal(1,1L) |
|
|
20 |
}) |