R/pseudovol_ui.R

In JARS3N/LiveLongAndProsper: LLP

pseudovol_ui<-function(){
library(shiny)
shinyUI(fluidPage(
    titlePanel("Change Pseudo Volume"),
    mainPanel(
        numericInput("chamber", "chamber volume", NULL),
        shiny::fileInput("FILE", "upload file"),
        downloadButton("export", "export")
    )
))
}