From e09d1a78b7a90aad9cc682a0daa91da46ede39be Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Todor=20Kondi=C4=87?= <kontrapunkt@uclmail.net>
Date: Thu, 9 Mar 2023 16:14:38 +0100
Subject: [PATCH] extr_data: Begin cleaning up `extr_data'.
---
R/api.R | 6 +++++-
1 file changed, 5 insertions(+), 1 deletion(-)
diff --git a/R/api.R b/R/api.R
index de1dfdc..a9a5e9a 100644
--- a/R/api.R
+++ b/R/api.R
@@ -314,7 +314,7 @@ mk_tol_funcs <- function(m) {
##' @export
-extr_data <-function(m) {
+extr_data2 <-function(m) {
message("Stage: extract")
if (is.null(m$conf$serial) || !m$conf$serial) {
extr_data_future(m)
@@ -324,6 +324,10 @@ extr_data <-function(m) {
}
}
+extr_data <-function(m) {
+m
+}
+
extr_data_future <- function(m) {
## Reduce the comp table to only unique masses (this is because
## different sets can have same masses).
--
GitLab