Repository navigation
Expand file tree
/
Copy pathmovingWindow.R
More file actions
128 lines (125 loc) · 4.65 KB
/
Copy pathmovingWindow.R
File metadata and controls
128 lines (125 loc) · 4.65 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
128
tabPanel(value = "movingWindow",
"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")
)
)
)
)