shiny-study/ui.R at master · leroy-chen/shiny-study · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
library(shiny)

# Define UI for random distribution application
shinyUI(fluidPage(
  titlePanel("Uploading Files"),
  sidebarLayout(
    sidebarPanel(
      fileInput('file1', 'Choose CSV File',
                accept=c('text/csv',
                         'text/comma-separated-values,text/plain',
                         '.csv')),
      tags$hr(),
      checkboxInput('header', 'Header', TRUE),
      radioButtons('sep', 'Separator',
                   c(Comma=',',
                     Semicolon=';',
                     Tab='\t'),
                   ','),
      radioButtons('quote', 'Quote',
                   c(None='',
                     'Double Quote'='"',
                     'Single Quote'="'"),
                   '"')
    ),
    mainPanel(
      conditionalPanel("output.fileuploaded",
        tabsetPanel(type = "tabs",
                    tabPanel("BoxPlot", plotOutput("boxplot")),
                    tabPanel("Plot", plotOutput("plot2"),plotOutput("plot3"),plotOutput("plot4"),plotOutput("plot5"),plotOutput("plot6")),
                    tabPanel("Pairs", plotOutput("pairs")),
                    tabPanel("Sum", verbatimTextOutput("sum"),plotOutput("sumhist"),plotOutput("sumboxplot")),
                    tabPanel("Cor", verbatimTextOutput("cor")),
                    tabPanel("Summary", verbatimTextOutput("summary")),
                    tabPanel("Table", tableOutput("table"))
        )
      )
    )
  )
  )
)