forked from manybabies/validator
-
Notifications
You must be signed in to change notification settings - Fork 0
/
ui.R
34 lines (30 loc) · 981 Bytes
/
ui.R
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
library(shiny)
library(shinythemes)
source("common.R")
shinyUI(fluidPage(
theme = shinytheme("spacelab"),
titlePanel("ManyBabies Data Validator"),
br(),
sidebarLayout(
sidebarPanel(
selectInput("study", h4("Study"),
choices = unique(studies$study)),
uiOutput("study_format"),
fileInput("file", "Choose CSV File",
multiple = FALSE,
accept = c("text/csv",
"text/comma-separated-values,text/plain",
".csv"))
),
mainPanel(
tabsetPanel(
tabPanel("Validation Results",
p('Welcome to the validator! Choose a study and upload a file to check validity.'),
verbatimTextOutput("validator_output")),
tabPanel("Specification",
p('This is the full text of the specification you have chosen'),
verbatimTextOutput("specification"))
)
)
)
))