tests/testthat/test_metdat.R

In agugonrey/MOSS: Multi-Omic Integration via Sparse Singular Value Decomposition

context("Function metdat")

test_that("Test if metdat does its thing", {
  x <- "this is one chunk of characters & this is another"
  expect_equal(
    metdat(x, 1:2, " & ", collapse = " and "),
    "this is one chunk of characters and this is another"
  )
})