forked from swsoyee/2019-ncov-japan
-
Notifications
You must be signed in to change notification settings - Fork 0
/
server.R
134 lines (131 loc) · 4.16 KB
/
server.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
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
source(
file = "global.R",
local = TRUE,
encoding = "UTF-8"
)
shinyServer(function(input, output, session) {
source(file = paste0(COMPONENT_PATH, "Main/NewsList.server.R"), local = T, encoding = "UTF-8")
source(file = paste0(COMPONENT_PATH, "Main/Tendency.Discharged.server.R"), local = T, encoding = "UTF-8")
source(file = paste0(COMPONENT_PATH, "Main/Tendency.Test.server.R"), local = T, encoding = "UTF-8")
source(file = paste0(COMPONENT_PATH, "Main/Tendency.Confirmed.server.R"), local = T, encoding = "UTF-8")
source(file = paste0(COMPONENT_PATH, "Main/ComparePref.server.R"), local = T, encoding = "UTF-8")
source(file = paste0(COMPONENT_PATH, "Main/ConfirmedHeatmap.server.R"), local = T, encoding = "UTF-8")
source(file = paste0(COMPONENT_PATH, "Main/RtLine.server.R"), local = T, encoding = "UTF-8")
# source(file = paste0(COMPONENT_PATH, "Main/ConfirmedCityTreemap.server.R"), local = T, encoding = "UTF-8")
# source(file = paste0(COMPONENT_PATH, "Academic/onset2ConfirmedMap.server.R"), local = T, encoding = "UTF-8")
source(file = paste0(COMPONENT_PATH, "Google/PrefMobility.server.R"), local = T, encoding = "UTF-8")
source(file = paste0(PAGE_PATH, "World/World.server.R"), local = T, encoding = "UTF-8")
# source(file = paste0(PAGE_PATH, "ECMO/ECMO.server.R"), local = T, encoding = "UTF-8")
source(file = paste0(COMPONENT_PATH, "/Main/Developer.server.R"), local = T, encoding = "UTF-8")
source(file = paste0(COMPONENT_PATH, "VaccineLinePlot/VaccineLinePlot.server.R"), local = T, encoding = "UTF-8")
# マップ関連コンポーネント
source(
file = paste0(COMPONENT_PATH, "Main/ConfirmedMap.server.R"),
local = TRUE,
encoding = "UTF-8"
)
if (envSetting == "dev") {
source(file = paste0(COMPONENT_PATH, "/CurrentStatus/CurrentActive.server.R"), local = T, encoding = "UTF-8")
}
# 数値ボックスコンポーネント
source(
file = paste0(COMPONENT_PATH, "ValueBox.R"),
local = TRUE,
encoding = "UTF-8"
)
# テーブル系コンポーネント
source(
file = paste0(COMPONENT_PATH, "Main/SummaryTable.server.R"),
local = TRUE,
encoding = "UTF-8"
)
# BarChartコンポーネント
source(
file = paste0(COMPONENT_PATH, "BarChart.R"),
local = TRUE,
encoding = "UTF-8"
)
# ネットワーク系コンポーネント
source(
file = paste0(COMPONENT_PATH, "/Network/Network.R"),
local = TRUE,
encoding = "UTF-8"
)
# カレンダー系コンポーネント
source(
file = paste0(COMPONENT_PATH, "Calendar.R"),
local = TRUE,
encoding = "UTF-8"
)
# Sankey系コンポーネント
source(
file = paste0(COMPONENT_PATH, "Sankey.R"),
local = TRUE,
encoding = "UTF-8"
)
# 歳代、年齢コンポーネント
source(
file = paste0(COMPONENT_PATH, "Main/ComfirmedPyramid.server.R"),
local = TRUE,
encoding = "UTF-8"
)
# 感染ルート
source(
file = paste0(COMPONENT_PATH, "Network/PlotInfectedRoute.R"),
local = TRUE,
encoding = "UTF-8"
)
# Sparkline
source(
file = paste0(COMPONENT_PATH, "Sparkline.R"),
local = TRUE,
encoding = "UTF-8"
)
# 青森県
source(
file = paste0(PAGE_PATH, "Pref/Utils.R"),
local = TRUE,
encoding = "UTF-8"
)
# 北海道
source(
file = paste0(PAGE_PATH, "Pref/Hokkaido-Server.R"),
local = TRUE,
encoding = "UTF-8"
)
# 青森県
source(
file = paste0(PAGE_PATH, "Pref/Aomori-Server.R"),
local = TRUE,
encoding = "UTF-8"
)
# 岩手県
source(
file = paste0(PAGE_PATH, "Pref/Iwate-Server.R"),
local = TRUE,
encoding = "UTF-8"
)
# 宮城県
source(
file = paste0(PAGE_PATH, "Pref/Miyagi-Server.R"),
local = TRUE,
encoding = "UTF-8"
)
# 茨城県
source(
file = paste0(PAGE_PATH, "Pref/Ibaraki-Server.R"),
local = TRUE,
encoding = "UTF-8"
)
# 神奈川県
source(
file = paste0(PAGE_PATH, "Pref/Kanagawa-Server.R"),
local = TRUE,
encoding = "UTF-8"
)
# 福岡県
source(file = paste0(PAGE_PATH, "Pref/Fukuoka-Server.R"), local = TRUE, encoding = "UTF-8")
observeEvent(input$switchCaseMap, {
updateTabItems(session, "sideBarTab", "caseMap")
})
})