Nothing
##
## Author: Chris Bielow
##
test_that("filenameToCV = function(filepath)", {
expect_true(filenameToCV("test.mZmL") == "MS:1000584")
expect_true(filenameToCV("test.wiff") == "MS:1000562")
expect_true(all(filenameToCV(c("test.raw", "bla.mzML")) == c("MS:1000563", "MS:1000584")))
expect_warning(filenameToCV("test.special") == "MS:1000584") ## generic mass spectrometer file format
})
test_that('toQCMetric = function(id, value, on_violation = c("error", "warn"))', {
## load the CV first, since this will print some information (i.e. not silent)
myCV = CV_$new()
myCV$ensureHasData()
expect_silent(toQCMetric(id = "MS:4000059", value = 13405))
expect_silent(toQCMetric(id = "MS:4000059", value = "13405"))
expect_error(toQCMetric(id = "MS:4000059", value = data.frame(n = 1), on_violation = "error"))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.