context("fasta_file_to_sequences")
test_that("fasta_file_to_sequences: use", {
expect_silent(
sequences_table <- fasta_file_to_sequences(
fasta_filename = get_fasta_filename()
)
)
})
test_that("fasta_file_to_sequences: abuse", {
expect_error(
fasta_file_to_sequences(
fasta_filename = "nonexist.ing"
)
)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.