Repository navigation
Expand file tree
/
Copy pathmovingWindow.R
More file actions
127 lines (125 loc) · 4.63 KB
/
Copy pathmovingWindow.R
File metadata and controls
127 lines (125 loc) · 4.63 KB
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
tabPanel(
"Moving Window",
fluidRow(
column(3,
uiOutput("Moving_Window_Tab_Controls_1"),
selectizeInput(
'Moving_Window_Viz',
'Choose visualization:',
visualizations # references list defined in UI.R
),
radioButtons(
"Moving_Window_Type",
"Moving window type:",
choices = c('Single Window','Dual Window'),
selected = c('Single Window')
)
),
column(3,
uiOutput("Moving_Window_Tab_Controls_3"),
uiOutput("Moving_Window_Tab_Controls_3a"),
uiOutput("Moving_Window_Tab_Controls_2")
),
column(3,
# add controls that apply to both subsets here
conditionalPanel(
condition = "input.Moving_Window_Viz == 'Event network (circle)'",
uiOutput("Moving_4_controls")
),
conditionalPanel(
condition = "input.Moving_Window_Viz == 'Event network (force)'",
uiOutput("Moving_5_controls")
),
conditionalPanel(
condition = "input.Moving_Window_Viz == 'Other networks'",
uiOutput("Moving_6_controls")
),
conditionalPanel(
condition = "input.Moving_Window_Viz == 'Role Maps'",
uiOutput("Moving_7_controls")
)
)
),
conditionalPanel(
condition = "input.Moving_Window_Type == 'Single Window'",
plotlyOutput("single_moving_window_timeline")
),
conditionalPanel(
condition = "input.Moving_Window_Type == 'Dual Window'",
plotlyOutput("dual_moving_window_timeline")
),
fluidRow(
column(6,
"SubsetA",
uiOutput("Moving_Window_Tab_Controls_4_A"),
conditionalPanel(
condition = "input.Moving_Window_Viz == 'Threads (event time)'",
plotlyOutput("Moving_A_1")
),
conditionalPanel(
condition = "input.Moving_Window_Viz == 'Threads (actual time)'",
plotlyOutput("Moving_A_2")
),
conditionalPanel(
condition = "input.Moving_Window_Viz == 'Threads (relative time)'",
plotlyOutput("Moving_A_3")
),
conditionalPanel(
condition = "input.Moving_Window_Viz == 'Event network (circle)'",
visNetworkOutput("Moving_A_4")
),
conditionalPanel(
condition = "input.Moving_Window_Viz == 'Event network (force)'",
forceNetworkOutput("Moving_A_5")
),
conditionalPanel(
condition = "input.Moving_Window_Viz == 'Other networks'",
visNetworkOutput("Moving_A_6")
),
conditionalPanel(
condition = "input.Moving_Window_Viz == 'Role Maps'",
plotlyOutput("Moving_A_7")
),
conditionalPanel(
condition = "input.Moving_Window_Viz == 'Thread Trajectories'",
plotlyOutput("Moving_A_8")
)
),
column(6,
"SubsetB",
uiOutput("Moving_Window_Tab_Controls_4_B"),
conditionalPanel(
condition = "input.Moving_Window_Viz == 'Threads (event time)'",
plotlyOutput("Moving_B_1")
),
conditionalPanel(
condition = "input.Moving_Window_Viz == 'Threads (actual time)'",
plotlyOutput("Moving_B_2")
),
conditionalPanel(
condition = "input.Moving_Window_Viz == 'Threads (relative time)'",
plotlyOutput("Moving_B_3")
),
conditionalPanel(
condition = "input.Moving_Window_Viz == 'Event network (circle)'",
visNetworkOutput("Moving_B_4")
),
conditionalPanel(
condition = "input.Moving_Window_Viz == 'Event network (force)'",
forceNetworkOutput("Moving_B_5")
),
conditionalPanel(
condition = "input.Moving_Window_Viz == 'Other networks'",
visNetworkOutput("Moving_B_6")
),
conditionalPanel(
condition = "input.Moving_Window_Viz == 'Role Maps'",
plotlyOutput("Moving_B_7")
),
conditionalPanel(
condition = "input.Moving_Window_Viz == 'Thread Trajectories'",
plotlyOutput("Moving_B_8")
)
)
)
)