forked from sleeperbus/ko-apt-price
-
Notifications
You must be signed in to change notification settings - Fork 0
/
ui.R
52 lines (49 loc) · 1.78 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
library(shiny)
library(ggvis)
library(dygraphs)
sido = readRDS("data/sido.rds")
sido$sidoCode = as.character(sido$sidoCode)
sido$sidoName = as.character(sido$sidoName)
codes = list()
codes = as.list(sido[,1])
names(codes) = sido[,2]
shinyUI(
navbarPage(
"아파트 거래가 추이",
tabPanel("우리동네",
fluidRow(
column(4,
radioButtons("type", h4("거래유형"), choices = list("매매"="t", "전세"="r"),
selected="t"),
sliderInput("period", "기간:", min=2006, max=2016, value=c(2011, 2016))
),
column(4,
h4("지역선택"),
selectInput("sido", "시도", choices=codes, selected=sido[1,1]),
selectInput("gugun", "구군", choices=list()),
selectInput("dong", "동", choices=list()),
actionButton("refreshButton", "적용", icon("refresh"))
),
column(4,
checkboxGroupInput("realArea", "전용면적",
list("~35"=0, "36~40"=1, "41~50"=2, "51~60"=3,
"61-70"=4, "71~80"=5,
"81~90"=6, "91~100"=7, "101~"=8),
selected=c(5,6)),
uiOutput("aptNames")
)
),
hr(),
fluidRow(
column(7, ggvisOutput("plotPoint")),
column(5, dygraphOutput("plotHist"))
)
),
tabPanel(
"About",
fluidRow(
column(12, includeMarkdown("about.md"))
)
)
)
)