testthat::test_that("translate_cDNA", {
# load test data
v <- "ATGTCTTCTTTTGCTTGCTGGAGCCTGTCTCTTCTTATCCTGTTCTACAGCCCAGGGTCTGGTGAGAAGGCCTTTGAGGTCTACATATGGTCCGAGAAGCAGATAGTAGAAGCCACAGAGTCTTGGAAAATCAACTGCAGCACCAACTGCGCAGCCCCAGACATGGGCGGCCTGGAGACGCCCACGAATAAAATAATGTTGGAAGAGCATCCTCAAGGGAAGTGGAAACAGTTCTTAGTCTCAAACGTCTCCAAAGACACGGTCTTCTTTTGCCATTTCACGTGTTCGGGAAAGCAGCACTCGGAGAGTCTCAACATCAGGGTGTACCAGCCTCCAGCTCAAGTCACACTGAAGCTGCAGCCGCCTCGGGTGTTTGTGGGTGAAGACTTCACCATTGAGTGCACGGTGTCCCCTGTGCAGCCCCTTGAGAGGCTCACCCTCTCTCTGCTCCGTGGCAGAGAGACCCTGAAGAATCAGACCTTTGGGGGAGCAGAAACTGTCCCCCAAGAGGCCACAGCCACGTTCAACAGCACAGCTCTGAAAAAGGACGGTCTCAACTTTTCCTGCCAGGCTGAGCTGGATCTACGGCCCCATGGTGGGTATATCATCCGCAGCATCTCGGAGTACCAGATCCTTGAAGTCTATGAGCCGATGCAGGACAACCAAATGGTCATCATCATCGTGGTGGTGTCAATACTGCTGTTCTTATTTGTGACATCTGTCCTGCTATGCTTTATCTTTGGCCAGCACTGGCACAGAAGACGGACAGGCACCTACGGGGTGCTAGCTGCCTGGAGGAGGCTGCCCCGAGCCTTTCGGGCACGTCCCGTGTGA"
# run test
antigen.garnish:::translate_cDNA(v) %>%
testthat::expect_equal(., "MSSFACWSLSLLILFYSPGSGEKAFEVYIWSEKQIVEATESWKINCSTNCAAPDMGGLETPTNKIMLEEHPQGKWKQFLVSNVSKDTVFFCHFTCSGKQHSESLNIRVYQPPAQVTLKLQPPRVFVGEDFTIECTVSPVQPLERLTLSLLRGRETLKNQTFGGAETVPQEATATFNSTALKKDGLNFSCQAELDLRPHGGYIIRSISEYQILEVYEPMQDNQMVIIIVVVSILLFLFVTSVLLCFIFGQHWHRRRTGTYGVLAAWRRLPRAFRARPV*")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.