diff --git a/R/api.R b/R/api.R index de1dfdc01b6bcada21a1db12eed8083c86cb0ad6..a9a5e9adf15f2fcea38a2f9aee099bb2816dfd5e 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).