Nothing
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))
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.