extr_data: Begin cleaning up `extr_data'.

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).