R/exp_var_finder.R

In adsteen/metafluxr: Process Isotope-Labeled Metabolic Flux Data

##' Detects the experimental variables of a ms dataset
##' 
##' @description RIGHT NOW THIS TOTALLY DOESN'T DETECT THE EXPERIMENTAL VARIABILES - IT JUST TAKES THE FIRST ONE AS AN EXPERIMENTAL VARIABLE
##' @param key the sample key
##' # Probably don't export this

exp_var_finder <- function(key) {
  exp.var <- names(key)[2:length(names(key))]
  exp.var
}