inst/app/ui.R

In ALSBinary: 'ALS-Binary': Allele Size to Binary Converter

library(shiny)
library(DT)

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      fileInput("datafile", "Upload Data File", accept = c(".csv", ".txt", ".xlsx")),
      fileInput("infofile", "Upload Repeat Length File", accept = c(".csv", ".txt", ".xlsx")),
      radioButtons("delimiter", "Delimiter:",
                   choices = c("Comma" = ",", "Tab" = "\t", "Pipe" = "|")),
      radioButtons("header", "Data contains column headers?",
                   choices = c("Yes" = TRUE, "No" = FALSE),
                   selected = TRUE),
      actionButton("process", "Convert to Binary"),
      br(), br(),
      uiOutput("marker_ui"),   # dropdown placeholder
      downloadButton("download", "Download Results")
    ),
    mainPanel(
      tabsetPanel(
        tabPanel("Data Preview", DTOutput("datapreview")),
        tabPanel("Repeat Length Preview", DTOutput("repeatpreview")),
        tabPanel("Binary Output", DTOutput("binarypreview")),
        tabPanel("Structure Output", DTOutput("structurepreview")),
        tabPanel("Help", includeMarkdown(system.file("extdata", "help.md", package = "ALSBinary")))
      )
    )
  )
)