Nothing
test_that("isValidMzQC = function(x, ...)", {
suppressWarnings(## the expression below yields more than one warning, but expect_warning only catches a single one
expect_warning(out <- isValidMzQC(MzQCcvParameter$new("MS:4000059")))
)
expect_false(out)
expect_true(isValidMzQC(MzQCcvParameter$new("MS:4000059", "Number of MS1 spectra")))
suppressWarnings(## the expression below yields more than one warning, but expect_warning only catches a single one
expect_warning(out <- isValidMzQC(list(MzQCcvParameter$new("MS:4000059"))))
)
expect_false(out)
expect_true(isValidMzQC(list(MzQCcvParameter$new("MS:4000059", "Number of MS1 spectra"))))
suppressWarnings(## the expression below yields more than one warning, but expect_warning only catches a single one
expect_warning(out <- isValidMzQC(list(MzQCcvParameter$new("MS:4000059", "Number of MS1 spectra")),
MzQCcvParameter$new()))
)
expect_false(out)
})
test_that("fromDatatoMzQC = function(mzqc_class, data)", {
data = rmzqc::MzQCcvParameter$new("acc", "myName", "value")
data_recovered = rmzqc::fromDatatoMzQC(rmzqc::MzQCcvParameter, list(jsonlite::fromJSON(jsonlite::toJSON(data))))
expect_equal(data_recovered[[1]]$accession, data$accession)
expect_equal(data_recovered[[1]]$value, data$value)
expect_equal(data_recovered[[1]]$description, data$description)
})
test_that("fromDatatoMzQCobj = function(mzqc_class, data)", {
data = rmzqc::MzQCcvParameter$new("acc", "myName", "value")
data_recovered = rmzqc::fromDatatoMzQCobj(rmzqc::MzQCcvParameter, jsonlite::fromJSON(jsonlite::toJSON(data)))
expect_equal(data_recovered$accession, data$accession)
expect_equal(data_recovered$value, data$value)
expect_equal(data_recovered$description, data$description)
})
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.