test_that("use", {
t <- create_proteins_lut(get_test_covid_proteome_filename())
expect_true("protein" %in% names(t))
expect_true("sequence" %in% names(t))
expect_true("protein_id" %in% names(t))
expect_equal(names(t)[1], "protein_id")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.