tests/testthat/test-chk.R

test_that('physeq_format runs',{
  data(physeq_S2D2)
  x = physeq_format(physeq_S2D2)
  expect_is(x, 'phyloseq')
  expect_equal(x %>% sample_data %>% colnames,
               physeq_S2D2 %>% sample_data %>% colnames)

  # should NOT be correctly formatted for HTSSIP
  library(phyloseq)
  data(GlobalPatterns)
  expect_error(physeq_format(GlobalPatterns))
})

Try the HTSSIP package in your browser

Any scripts or data that you put into this service are public.

HTSSIP documentation built on May 15, 2018, 9:03 a.m.