ui.R 1.67 KB
Newer Older
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
41
42
43
44
45
46
47
library(shiny)

## Path do arquivo css.
css <- ifelse(Sys.info()["nodename"]=="academia",
              yes="../palatino.css",
              no="/home/walmes/Dropbox/shiny/palatino.css")

shinyUI(
    fluidPage(
        includeCSS(css),
        ## Cabeçalho IGUIR2
        htmlOutput("header"),
        titlePanel("Suba o seu arquivo"),
        sidebarLayout(
            sidebarPanel(
                helpText("Forceça apenas os 8 digitos, ex: 20129999."),
                textInput(inputId="grr", label="Forneça o seu GRR:", value=""),
                radioButtons(inputId="turma", label="Turma:",
                             choices=c("ce083-2015-01",
                                       "ce063-2015-01",
                                       "ce213-2015-01")),
                radioButtons(inputId="trab", label="Trabalho número:",
                             choices=c(as.character(1:5))),
                fileInput(inputId="file", label="Selecione o arquivo",
                          accept=c("application/x-rar-compressed",
                                   "application/octet-stream",
                                   "application/zip",
                                   "application/octet-stream")),
                submitButton("Upload")
            ),
            mainPanel(
                tabsetPanel(
                    id='result',
                    tabPanel(title='Mais recentes',
                             htmlOutput('table')
                    ),
                    tabPanel(title='Todos',
                             textOutput('contents'),
                             htmlOutput('html')
                    )
                )
            )
        )
    )
)