tests/testthat/test_make_pep_table.R

library(parsemsf)
context("Make peptide table")

pep_col_names <- c("peptide_id",
                   "spectrum_id",
                   "protein_id",
                   "protein_desc",
                   "sequence",
                   "pep_score",
                   "q_value")

test_that("make_pep_table creates a data frame with the correct column names", {
  expect_equal(colnames(make_pep_table(parsemsf_example("test_db.msf"))), pep_col_names)
})

Try the parsemsf package in your browser

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

parsemsf documentation built on May 2, 2019, 6:33 a.m.