From 5e5744dfd7926497997b7d9949964c3347936497 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Todor=20Kondi=C4=87?= <kontrapunkt@uclmail.net>
Date: Tue, 4 Apr 2023 08:39:51 +0200
Subject: [PATCH] Update keys in empty_cgram_ms1 and empty_cgram_ms2.
---
R/data-model.R | 30 +++++++++++++++++-------------
1 file changed, 17 insertions(+), 13 deletions(-)
diff --git a/R/data-model.R b/R/data-model.R
index b8d7dd4..973b922 100644
--- a/R/data-model.R
+++ b/R/data-model.R
@@ -105,23 +105,27 @@ make_db_precursors <- function(m) {
empty_cgram_ms1 <- function(n=0L) {
- data.table(file=character(n),
- cgmidx=integer(n),
- precid=integer(n),
- scan=integer(n),
- rt=numeric(n),
- intensity=numeric(n))
+ r = data.table(file=character(n),
+ cgmidx=integer(n),
+ precid=integer(n),
+ scan=integer(n),
+ rt=numeric(n),
+ intensity=numeric(n))
+ setkey(r,precid,rt)
+ r
}
empty_cgram_ms2 <- function(n=0L) {
- data.table(precid=integer(n),
- ce=numeric(n),
- scan=integer(n),
- idx=integer(n),
- rt=numeric(n),
- intensity=numeric(n))
+ r = data.table(precid=integer(n),
+ ce=numeric(n),
+ scan=integer(n),
+ idx=integer(n),
+ rt=numeric(n),
+ intensity=numeric(n))
+ setkey(r,precid,ce,idx)
+ r
- }
+}
empty_spectra_table <- function() {
--
GitLab