inst/Launcher/ui.R

In JARS3N/PipeFish: pKa,outlier,pO2model,etc

library(shiny)
library(PipeFish)
#scriptlist<-PipeFish::available_scripts()
shinyUI(
  fluidPage(title="PipeFish::Scripts",
             fluidRow(column(h4("Description"),width=9,textOutput("MSG"))),
            fluidRow(
              column(h4("Select Script"),width=4,
                     selectInput(inputId="Scripts",label="",
                          choices=c(
                            "WavetoExcel"=1,
                            "XFDtoWave"=2,
                            "Outliers"=3,
                            "pKa(fromAsyr)"=4,
                            "UploadDryQC"=5,
                            "reprintBarcodes"=6,
                            "UploadWetQC"=7
                          )       
                                   
                                   
                                   ,multiple=FALSE,selected=NULL)
              ),#col select
              column(width=5,
                     actionButton(inputId="Launch",label="Launch Script", icon = icon('rocket'))
              )
              
            )#fluidrow
           
  )#fluidpage
)#ui