Repository navigation
Expand file tree
/
Copy pathcomparisons.R
More file actions
105 lines (104 loc) · 5.16 KB
/
Copy pathcomparisons.R
File metadata and controls
105 lines (104 loc) · 5.16 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
tabPanel(value = "comparisons",
"Comparisons",
tabsetPanel(
type = "tabs",
tabPanel(
"Compare Mappings (synchronic)",
fluidRow(
column(6,
fluidRow(
column(3, uiOutput("Comparison_Tab_Controls_A1")),
column(3, uiOutput("Comparison_Tab_Controls_A2"))
),
selectizeInput(
'comparePanelSelect_A',
'Choose visualization:',
visualizations # references list defined in UI.R
),
conditionalPanel(condition = "input.comparePanelSelect_A == 'Threads (event time)'", plotlyOutput("Comp_A_1") ),
conditionalPanel(condition = "input.comparePanelSelect_A == 'Threads (actual time)'", plotlyOutput("Comp_A_2") ),
conditionalPanel(condition = "input.comparePanelSelect_A == 'Threads (relative time)'", plotlyOutput("Comp_A_3") ),
conditionalPanel(
condition = "input.comparePanelSelect_A == 'Event network (circle)'",
uiOutput("Comp_A_4_controls"),
visNetworkOutput("Comp_A_4")
),
conditionalPanel(
condition = "input.comparePanelSelect_A == 'Event network (force)'",
uiOutput("Comp_A_5_controls"),
forceNetworkOutput("Comp_A_5")
),
conditionalPanel(
condition = "input.comparePanelSelect_A == 'Other networks'",
uiOutput("Comp_A_6_controls"),
visNetworkOutput("Comp_A_6")
),
conditionalPanel(
condition = "input.comparePanelSelect_A == 'Role Maps'",
uiOutput("Comp_A_7_controls"),
plotlyOutput("Comp_A_7")
),
conditionalPanel(
condition = "input.comparePanelSelect_A == 'Thread Trajectories'",
plotlyOutput("Comp_A_8")
)
),
column(6,
fluidRow(
column(3, uiOutput("Comparison_Tab_Controls_B1")),
column(3, uiOutput("Comparison_Tab_Controls_B2"))) ,
selectizeInput(
'comparePanelSelect_B',
'Choose visualization:',
visualizations # references list defined in UI.R
),
conditionalPanel(
condition = "input.comparePanelSelect_B == 'Threads (event time)'",
plotlyOutput("Comp_B_1")
),
conditionalPanel(
condition = "input.comparePanelSelect_B == 'Threads (actual time)'",
plotlyOutput("Comp_B_2")
),
conditionalPanel(
condition = "input.comparePanelSelect_B == 'Threads (relative time)'",
plotlyOutput("Comp_B_3")
),
conditionalPanel(
condition = "input.comparePanelSelect_B == 'Event network (circle)'",
uiOutput("Comp_B_4_controls"),
visNetworkOutput("Comp_B_4")
),
conditionalPanel(
condition = "input.comparePanelSelect_B == 'Event network (force)'",
uiOutput("Comp_B_5_controls"),
forceNetworkOutput("Comp_B_5")
),
conditionalPanel(
condition = "input.comparePanelSelect_B == 'Other networks'",
uiOutput("Comp_B_6_controls"),
visNetworkOutput("Comp_B_6")
),
conditionalPanel(
condition = "input.comparePanelSelect_B == 'Role Maps'",
uiOutput("Comp_B_7_controls"),
plotlyOutput("Comp_B_7")
),
conditionalPanel(
condition = "input.comparePanelSelect_B == 'Thread Trajectories'",
plotlyOutput("Comp_B_8")
)
)
)
),
tabPanel(
"Compare time periods (diachronic)",
fluidRow(
column(3,uiOutput("Diachronic_Comparison_Tab_Controls_1") ),
column(3,uiOutput("Diachronic_Comparison_Tab_Controls_4"),uiOutput("Diachronic_Comparison_Tab_Controls_5") ),
column(3,uiOutput("Diachronic_Comparison_Tab_Controls_3") )
),
plotlyOutput("DiachronicComparisonPlots")
)
)
)