tests/testthat/test-get_peptide_sequence.R

sequence <- get_peptide_sequence(t_dat, start = t_peptide_start, end = t_peptide_end)

test_that("class is right",
          expect_is(sequence, "character"))

test_that("right value", 
          expect_equal(sequence, t_peptide))

Try the HaDeX2 package in your browser

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

HaDeX2 documentation built on Feb. 9, 2026, 5:07 p.m.