diff MsDb.R @ 6:b8f70d8216b3 draft

planemo upload for repository https://github.com/workflow4metabolomics/lcmsmatching.git commit b3a4e34cf9356447ae3507cc6fe2ff6a1f24afbc-dirty
author prog
date Mon, 27 Mar 2017 06:27:29 -0400
parents 1ba222315fd5
children
line wrap: on
line diff
--- a/MsDb.R	Thu Mar 16 08:15:11 2017 -0400
+++ b/MsDb.R	Mon Mar 27 06:27:29 2017 -0400
@@ -151,6 +151,14 @@
 		.rt.unit <<- unit
 	})
 
+	###############
+	# GET RT UNIT #
+	###############
+
+	MsDb$methods( getRtUnit = function(unit) {
+		return(.self$.rt.unit)
+	})
+
 	####################
 	# HANDLE COMPOUNDS #
 	####################
@@ -311,8 +319,6 @@
 #				peaks <- rbind(peaks, peaks.na)
 #
 #				# Sort
-#				print(colnames(peaks))
-#				print(x.colnames)
 #				peaks <- peaks[order(peaks[[x.colnames$mz]], peaks[[x.colnames$rt]], peaks[[MSDB.TAG.MOLID]], peaks[[MSDB.TAG.COL]]), ]
 #
 #				# Remove rownames