-
Notifications
You must be signed in to change notification settings - Fork 0
/
ui.R
69 lines (67 loc) · 2.62 KB
/
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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
library(shiny)
# Define UI for application that draws a histogram
shinyUI(
shinyUI(pageWithSidebar(
headerPanel("Legal immigration to the US since 2002"),
sidebarPanel(
sliderInput("year", "Immigration year to be displayed:",
min=2002, max=2017, value=2017, step=1,
format="###0",animate=TRUE)
),
mainPanel(
h3(textOutput("year")),
# htmlOutput("gvis")
plotlyOutput("Plot", height = 300, width=500)
# width = 9))#,
# box(title ='immigration',
# status = 'primary',
# solidHeader = T,
# plotlyOutput("Plot", height = 300, width=500),
# width = 9))#,
)
)
)
)
# dashboardPage(
# dashboardHeader(title = 'US Immigration', titleWidth = 1000),
# dashboardSidebar(tags$blockquote("US Immigration over time")),
#
# dashboardBody(
# fluidRow(
# box(
# #title = "State", status = "primary"
# width = 2,
# selectInput("year",
# label = "Year",
# choices = years,
# selected = '2017')),
#
# sidebarPanel(
# sliderInput("Year", "Immigration year to be displayed:",
# min=2002, max=2017, value=2017, step=1,
# format="###0",animate=TRUE)
#
# box(title ='immigration',
# status = 'primary',
# solidHeader = T,
# plotlyOutput("Plot", height = 300, width=500),
# width = 9))#,
#
# # fluidRow(
# # box(
# # #title = "State", status = "primary"
# # width = 2,
# # selectInput("state",
# # label = "State",
# # choices = state,
# # selected = 'TN')),
# # fluidRow(
# # box(title ='immigration 2',
# # status = 'primary',
# # solidHeader = T,
# # plotOutput("Plot1", height = 300, width=500),
# # width = 9))
# )
# )
# )
# # )