Skip to content
Snippets Groups Projects
Unverified Commit dec45795 authored by Todor Kondic's avatar Todor Kondic
Browse files

mix: Adapt to the new comprehensive table generation 

* R/mix.R(gen_sup_ftab): Removed.

(add_wd_to_mzml): Updated.
parent 4ecf4220
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 4 additions and 5 deletions
R/mix.R
+ 4
− 5
View file @ dec45795
...@@ -466,13 +466,12 @@ add_wd_to_mzml <- function(df,wdir) { ...@@ -466,13 +466,12 @@ add_wd_to_mzml <- function(df,wdir) {
df df
} }
gen_sup_ftab <- function(ftab,ctab) { add_wd_to_mzml <- function(fn,proj) {
df<-ctab[ftab,on=c("set","mode"),allow.cartesian=T] wd<-basename(tools::file_path_sans_ext(fn))
setkeyv(df,cols=FTAB_KEY) file.path(proj,wd)
setcolorder(df,neworder = FTAB_NAMES)
df
} }
getEntryFromComp<-function(entry,id,set,mode,compTab) { getEntryFromComp<-function(entry,id,set,mode,compTab) {
ind <- which(compTab$ID %in% id & ind <- which(compTab$ID %in% id &
compTab$set %in% set & compTab$set %in% set &
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment