Skip to content
Snippets Groups Projects
Commit ba22cdcb authored by Jessy Krier's avatar Jessy Krier
Browse files

Checkboxes present for every tag 

* R/mix.R(presc.shiny): Checkboxes are present for every tag using
  lapply() and do.call().
parent 2413c16f
No related branches found
No related tags found
3 merge requests!16ability to screen for mass, not SMILES in NT cases; for preProc's QC,!3Devel,!2Devel
Hide whitespace changes
Inline Side-by-side
Showing
with 23 additions and 13 deletions
R/mix.R
+ 23
− 13
View file @ ba22cdcb
......@@ -547,6 +547,18 @@ presc.shiny <-function(wd,mode,pal="Dark2",cex=0.75,rt_digits=2,m_digits=4){
eics <- list.files(path=dfdir[[1]],patt=".*eic.csv")
maybekids <- sapply(strsplit(eics,split="\\."),function(x) {paste(x[[1]][1],'.kids.csv',sep='')})
idsliderrange <- range(df$ID)
tabPanelList <- lapply(1:6, function(tag) {
shiny::tabPanel(paste("tag",tag),shiny::checkboxGroupInput("variable", "Checkboxes:",
c("MS1" = "MS1 present",
"MS2" = "MS2 present",
"Alignment" = "Alignment MS1/MS2",
"Intensity" = "Intensity is good",
"Noise" = "MS is noisy")),
shiny::textAreaInput("caption", "Comments:", "Insert your comment here..."),
shiny::verbatimTextOutput("value")
)
})
nvp <- do.call(shiny::navlistPanel, tabPanelList)
ui <- shinydashboard::dashboardPage(
shinydashboard::dashboardHeader(title = "Prescreening"),
shinydashboard::dashboardSidebar(
......@@ -571,7 +583,7 @@ presc.shiny <-function(wd,mode,pal="Dark2",cex=0.75,rt_digits=2,m_digits=4){
dblclick = NULL, hover = NULL, hoverDelay = NULL,
hoverDelayType = NULL, brush = NULL, clickId = NULL,
hoverId = NULL),
shiny::textInput("plotname", "Insert plot name:",value="plotCpdID_%i.pdf"),
shiny::textInput("plotname", "Insert plot name: (e.g. plotname_%i.pdf)",value="plotCpdID_%i.pdf"),
shiny::actionButton("saveplot", "Save", icon = shiny::icon("save"))
),
shinydashboard::box(
......@@ -584,15 +596,9 @@ presc.shiny <-function(wd,mode,pal="Dark2",cex=0.75,rt_digits=2,m_digits=4){
shiny::numericInput("max_val", "Maximum x Axis Value", default_max_rt)
),
shinydashboard::box(
title = "Prescreening Results", width = 4, solidHeader = TRUE, collapsible = TRUE,
shiny::checkboxGroupInput("variable", "Checkboxes:",
c("MS1" = "MS1 present",
"MS2" = "MS2 present",
"Alignment" = "Alignment MS1/MS2",
"Intensity" = "Intensity is good",
"Noise" = "MS is noisy")),
shiny::textAreaInput("caption", "Comments:", "Insert your comment here..."),
shiny::verbatimTextOutput("value")
title = "Prescreening Analysis", width = 4, solidHeader = TRUE, collapsible = TRUE,
shiny::uiOutput("nvp")
)
)
)
......@@ -696,9 +702,7 @@ presc.shiny <-function(wd,mode,pal="Dark2",cex=0.75,rt_digits=2,m_digits=4){
rtrange <- c(input$min_val,input$max_val)
plotall(i,rtrange=clean_rtrange(rtrange))
session$onSessionEnded(function() {
stopApp()
})
}
)
......@@ -723,6 +727,12 @@ presc.shiny <-function(wd,mode,pal="Dark2",cex=0.75,rt_digits=2,m_digits=4){
plotall(i,rtrange=clean_rtrange(rtrange))
dev.off()
})
output$nvp <- shiny::renderUI({nvp})
session$onSessionEnded(function() {
stopApp()
})
}
shiny::shinyApp(ui = ui, server = server)
......
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