-
Notifications
You must be signed in to change notification settings - Fork 24
/
ui.R
184 lines (177 loc) · 8.02 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
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
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
# Define UI
shinyUI(fluidPage(
# Application title
headerPanel("Statistical Analysis of Repeated Measurements Data"),
sidebarPanel(
wellPanel(
selectInput('chapter', 'Select chapter',
choices = c(paste("Chapter", 0:6), "Practicals", "Quizzes",
"Advanced Topics"))
# selectInput('chapter', 'Select chapter',
# choices = c(paste("Chapter", 0:6), "Practicals", "Quizzes"))
),
wellPanel(
uiOutput("section_choice"),
uiOutput("s11_data_choice"),
uiOutput("s11_glaucoma_choice"),
uiOutput("s24_choice"),
uiOutput("s24_Agechoice"),
uiOutput("s27_cs_choice"),
uiOutput("s27_cs_choice_slider"),
uiOutput("s29_test_choice"),
uiOutput("s212_plot_datachoice"),
uiOutput("s212_plot_choice"),
uiOutput("s32_choice"),
uiOutput("s32_Agechoice"),
uiOutput("s32_Prochoice"),
uiOutput("s33_res_choice"),
uiOutput("s33_slider_sigma2_b0"),
uiOutput("s33_slider_sigma2_b1"),
uiOutput("s33_slider_sigma2_b2"),
uiOutput("s33_slider_rho_b0b1"),
uiOutput("s33_slider_rho_b0b2"),
uiOutput("s33_slider_rho_b1b2"),
uiOutput("s33_slider_sigma2"),
uiOutput("s34_choice"),
uiOutput("s36_choice"),
uiOutput("s38_choice"),
uiOutput("s310_test_choice"),
uiOutput("s311_plot_choice"),
uiOutput("s43_choice"),
uiOutput("s43_Agechoice"),
uiOutput("s45_choice"),
uiOutput("s46_choice"),
uiOutput("s52_choice"),
uiOutput("s52_parms"),
uiOutput("s52_Agechoice"),
uiOutput("s63_choice"),
uiOutput("sPract_1"),
uiOutput("sPract_2"),
uiOutput("sPract_3"),
uiOutput("sPract_4"),
uiOutput("sPract_questions")
), width = 3),
mainPanel(
fluidRow(column(9, tabsetPanel(
tabPanel("Code",
htmlOutput('start_page'),
##########################
htmlOutput('s11_code_aids'),
htmlOutput('s11_code_pbc'),
htmlOutput('s11_code_prothro'),
htmlOutput('s11_code_glaucoma'),
#########################
htmlOutput('s22_code_lm'),
htmlOutput('s24_code_gls'),
htmlOutput('s24_code_gls_effectPlot'),
htmlOutput('s27_check_tab'),
htmlOutput('s29_code_anova_gls'),
htmlOutput('s29_code_anova_gls2'),
htmlOutput('s29_code_anova_gls3'),
htmlOutput('s29_code_anova_gls4'),
htmlOutput('s29_code_anova_gls5'),
htmlOutput('s212_code_plot1'),
htmlOutput('s212_code_plot2'),
htmlOutput('s212_code_plot3'),
htmlOutput('s212_code_plot4'),
htmlOutput('s212_code_plot5'),
htmlOutput('s212_code_plot6'),
htmlOutput('s212_code_plot7'),
htmlOutput('s212_code_plot8'),
htmlOutput('s212_code_plot9'),
htmlOutput('s212_code_plot10'),
htmlOutput('s212_code_plot11'),
htmlOutput('s212_code_plot12'),
htmlOutput('s212_code_plot13'),
htmlOutput('s212_code_plot14'),
htmlOutput('s212_code_plot15'),
htmlOutput('s212_code_plot16'),
htmlOutput('s212_code_plot17'),
htmlOutput('s212_code_plot18'),
htmlOutput('s212_code_plot19'),
htmlOutput('s212_code_plot20'),
htmlOutput('s212_code_plot21'),
htmlOutput('s212_code_plot22'),
htmlOutput('s212_code_plot23'),
htmlOutput('s212_code_plot24'),
#########################
htmlOutput('s32_code_lme'),
htmlOutput('s32_code_lme_effectPlot'),
htmlOutput('s33_check_tab'),
htmlOutput('s34_code_lme'),
htmlOutput('s36_code_lme'),
htmlOutput('s37_code_lme'),
htmlOutput('s38_code_lme'),
htmlOutput('s310_code_lme'),
htmlOutput('s311_code_plot'),
#########################
htmlOutput('s41_code_glm'),
htmlOutput('s43_code_gee'),
htmlOutput('s45_code_gee'),
htmlOutput('s46_code_gee'),
#########################
htmlOutput('s52_code_glmm'),
htmlOutput('s53_code_glmm'),
htmlOutput('s56_code_glmm'),
#########################
htmlOutput('s63_code'),
htmlOutput('sPract_motivate'),
htmlOutput('sPract_code'),
htmlOutput('sQuiz_question'),
uiOutput("sQuiz_ans"),
uiOutput("sQuiz_ans_check"),
#########################
htmlOutput('at_check_tab')
),
tabPanel("Output",
htmlOutput('s22_Routput_lm'),
htmlOutput('s24_Routput_gls'),
htmlOutput('s27_Routput_gls'),
htmlOutput('s29_Routput_gls'),
htmlOutput('s29_Routput_gls2'),
htmlOutput('s29_Routput_gls3'),
htmlOutput('s29_Routput_gls4'),
htmlOutput('s29_Routput_gls5'),
##########################
htmlOutput('s32_Routput_lme'),
htmlOutput('s33_Routput_ws'),
htmlOutput('s33_Routput_ws2'),
htmlOutput('s33_Routput_lme'),
htmlOutput('s33_Routput_lme2'),
htmlOutput('s36_Routput_lme'),
htmlOutput('s37_Routput_lme'),
htmlOutput('s38_Routput_lme'),
htmlOutput('s310_Routput_lme'),
##########################
htmlOutput('s41_Routput_glm'),
htmlOutput('s43_Routput_gee'),
htmlOutput('s45_Routput_gee'),
htmlOutput('s46_Routput_gee'),
##########################
htmlOutput('s52_Routput_glmm'),
htmlOutput('s56_Routput_glmm'),
##########################
dataTableOutput("s63_Routput_table"),
htmlOutput('s63_Routput'),
htmlOutput('sPract_motivate2'),
htmlOutput('sPract_Routput'),
##########################
htmlOutput('sQuizzes'),
##########################
uiOutput('at_docs'),
##########################
plotOutput('plot')),
tabPanel("Help",
htmlOutput('Chapter0_help'),
htmlOutput('Chapter1_help'),
htmlOutput('Chapter2_help'),
htmlOutput('Chapter3_help'),
htmlOutput('Chapter4_help'),
htmlOutput('Chapter5_help'),
htmlOutput('Chapter6_help'),
htmlOutput('Chapter7_help'),
htmlOutput('Chapter8_help')),
tabPanel("Slides", htmlOutput('slides'))
)
)))
))