From 65264f415743f1544ad2f7e049af77562f62a269 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Todor=20Kondi=C4=87?= <todor.kondic@uni.lu>
Date: Sat, 2 May 2020 19:41:33 +0200
Subject: [PATCH] Add function to add mzML files to the data file table
* R/shiny-ui-base.R(add_mzML_files): New function.
---
R/shiny-ui-base.R | 18 ++++++++++++++++++
1 file changed, 18 insertions(+)
diff --git a/R/shiny-ui-base.R b/R/shiny-ui-base.R
index 9f52e56..4ee3722 100644
--- a/R/shiny-ui-base.R
+++ b/R/shiny-ui-base.R
@@ -120,3 +120,21 @@ combine_tags <- function(df_tags,txt_tags) {
df_tags
}
+add_mzML_files<-function(df,paths) {
+ lSet<-levels(df$set)
+ if (length(lSet>0) && !is.na(lSet)) {
+ nR<-length(paths)
+ if (nR>0) {
+ st<-nrow(df)+1
+ fi<-nrow(df)+nR
+ df[st:fi,'tag']<-levels(df$tag)[[1]]
+ df[st:fi,'set']<-levels(df$set)[[1]]
+ df[st:fi,'mode']<-levels(df$mode)[[1]]
+ df[st:fi,'Files']<-paths
+ }
+ df
+ } else {
+ warning("Define sets using the compound set table before trying to add files!")
+ df
+ }
+}
--
GitLab