From 5b835e39d63962a1963438131a9a7b7a65b728e3 Mon Sep 17 00:00:00 2001
From: ermueller <erik@east.de>
Date: Wed, 14 Oct 2015 01:15:38 +0200
Subject: [PATCH] Typo
---
R/validateMassBank.R | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/R/validateMassBank.R b/R/validateMassBank.R
index f1aff63..e9984fd 100644
--- a/R/validateMassBank.R
+++ b/R/validateMassBank.R
@@ -217,17 +217,19 @@ smiles2mass <- function(SMILES){
#testFuncRegexp = "^test.+",
rngKind = "Marsaglia-Multicarry",
rngNormalKind = "Kinderman-Ramage")
- testSuite3 <- RUnit::defineTestSuite("Evaluation of correct handling ig no peaks are found", dirs = system.file("unitTests",
+ testSuite3 <- RUnit::defineTestSuite("Evaluation of correct handling if no peaks are found", dirs = system.file("unitTests",
package="RMassBank"), testFileRegexp = "runit.NOPEAKS.R",
#testFuncRegexp = "^test.+",
rngKind = "Marsaglia-Multicarry",
rngNormalKind = "Kinderman-Ramage")
testData <- suppressWarnings(RUnit::runTestSuite(testSuite))
testData2 <- suppressWarnings(RUnit::runTestSuite(testSuite2))
+ testData3 <- suppressWarnings(RUnit::runTestSuite(testSuite3))
file.remove(c("pH_narcotics_Failpeaks.csv","pH_narcotics.RData","pH_narcotics_RA.RData","pH_narcotics_RF.RData"))
RUnit::printTextProtocol(testData)
RUnit::printTextProtocol(testData2)
+ RUnit::printTextProtocol(testData3)
setwd(oldwd)
return(testData)
}
--
GitLab