tests/testthat/test_con_primer_length.R

context("Primer length")

test_that("Primer length", {
    # test primer lengths
    data(Ippolito)
    expect_that(nchar(primer.df$Forward), equals(primer.df$primer_length_fw))
    # no rev primers: length should be 0
    expect_that(nchar(primer.df$Reverse), equals(rep(0, nrow(primer.df))))
}) 

Try the openPrimeR package in your browser

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

openPrimeR documentation built on Nov. 16, 2020, 2 a.m.