-
Notifications
You must be signed in to change notification settings - Fork 0
/
ui.R
28 lines (24 loc) · 844 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
options(shiny.maxRequestSize = -1)
options(rgl.useNULL=TRUE)
library(shiny)
shinyUI(shinyUI(fluidPage(
title=("Skeletal Inventories"),
h1("Skeletal Inventories",align="center"),
fluidRow(
column(12, align="center",
DT::dataTableOutput("mytable")
),
hr(),
h2("Age Distribution",align="center"),
column(6,h4("",align="center"),plotOutput(outputId = "distPlot")),
column(6,h4(""),plotOutput(outputId = "distPlotMax")),
br(),
h2("Sex Distribution",align="center"),
column(12,h4(""),plotOutput(outputId = "sexPlot")),
br(),
h2("Age Distribution by Sex",align="center"),
column(6,h4(""),plotOutput(outputId = "agebysexPlot")),
column(6,h4(""),plotOutput(outputId = "maxagebysexPlot"))
)
)
))