a b/tests/testthat/test-embeddings.R 

  1
  
# Testing functions of manipulating embeddings ####





  
  

  2
  
test_that("embeddings", {





  
  

  3
  
  





  
  

  4
  
  # get data





  
  

  5
  
  data("visium_data")





  
  

  6
  
  





  
  

  7
  
  # write embedding





  
  

  8
  
  vrEmbeddings(visium_data, type = "pca") <- vrCoordinates(visium_data)





  
  

  9
  
  





  
  

  10
  
  # check overwrite embeddings





  
  

  11
  
  expect_error(vrEmbeddings(visium_data, type = "pca") <- vrCoordinates(visium_data))





  
  

  12
  
  vrEmbeddings(visium_data, type = "pca", overwrite = TRUE) <- vrCoordinates(visium_data)





  
  

  13
  
  





  
  

  14
  
  # return





  
  

  15
  
  expect_equal(1,1L)





  
  

  16
  
})