From d10cc4c1f750838f1138b33fa9303c1cc457e18c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Todor=20Kondi=C4=87?= <todor.kondic@uni.lu>
Date: Mon, 9 Mar 2020 11:10:27 +0100
Subject: [PATCH] Add switch project button
---
R/shinyUI.R | 9 +++++++++
1 file changed, 9 insertions(+)
diff --git a/R/shinyUI.R b/R/shinyUI.R
index c1f658f..fc2b30f 100644
--- a/R/shinyUI.R
+++ b/R/shinyUI.R
@@ -127,6 +127,14 @@ mkUI <- function(fnStyle) {
icon=shiny::icon("trash")),
width=NULL)
+ confProj <- prim_box(title="Project",
+ shinyFiles::shinyFilesButton(id="switchProjB",
+ label="Switch project.",
+ title="Switch project.",
+ icon=shiny::icon("recycle"),
+ multiple=F),
+ width=NULL)
+
confmzMLtab <-prim_box(title="Raw Files in mzML Format",
shiny::h5("Use this file table to assign adduct modes and tags to the data files."),
@@ -142,6 +150,7 @@ mkUI <- function(fnStyle) {
confLayout <- shiny::fluidRow(shiny::column(confImport,
confmzMLTags,
confState,
+ confProj,
width=4),
shiny::column(width=8,
confmzMLtab))
--
GitLab