context("fileFormats")
test_that("supportedFileFormats", {
r <- list(import = c("txt", "tab", "csv",
"fid",
"ciphergen",
"mzxml", "mzml", "imzml",
"analyze",
"cdf",
"msd"),
export = c("tab", "csv",
"msd",
"mzml",
"imzml"))
expect_identical(supportedFileFormats(), r)
})
Generated by dwww version 1.15 on Fri Jun 21 07:16:29 CEST 2024.