Repository navigation
Expand file tree
/
Copy pathvisualize.R
More file actions
72 lines (71 loc) · 2.66 KB
/
Copy pathvisualize.R
File metadata and controls
72 lines (71 loc) · 2.66 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
tabPanel(
"Visualize",
fluidRow(
column(3,uiOutput("Visualize_Tab_Controls_1")),
column(3,uiOutput("Visualize_Tab_Controls_3")),
conditionalPanel(
condition = "input.tabs !== 'Custom'",
column(4,uiOutput("Visualize_Tab_Controls_2") )
)
),
tabsetPanel(
type = "tabs",
tabPanel("Thread Trajectories", plotlyOutput("ThreadTrajectoriesOutput") ),
tabPanel(
"Whole Sequences",
radioButtons(
"ChoosePanelButton_1",
label = h4("Display threads using:"),
choices = c("Event time (sequence)", "Actual time", "Relative time"),
inline=TRUE
),
conditionalPanel(
condition = "input.ChoosePanelButton_1 == 'Event time (sequence)'",
plotlyOutput("WholeSequenceThreadMap_Sequence")
),
conditionalPanel(
condition = "input.ChoosePanelButton_1 == 'Actual time'",
plotlyOutput("WholeSequenceThreadMap_ActualTime")
),
conditionalPanel(
condition = "input.ChoosePanelButton_1 == 'Relative time'",
plotlyOutput("WholeSequenceThreadMap_RelativeTime")
)
),
tabPanel(
"Contextual Factors",
plotlyOutput("visualizePieCharts")
),
tabPanel("N-grams", uiOutput("nGramControls"), plotlyOutput("nGramBarchart")),
tabPanel(
"Event network (circle)",
uiOutput("Circle_Network_Tab_Controls"),
visNetworkOutput("circleVisNetwork", width = "100%", height = "1200px")
),
tabPanel(
"Event network (force)",
uiOutput("Force_Network_Tab_Controls"),
fluidRow(
column(9, forceNetworkOutput("forceNetworkD3", width = "100%", height = "1200px")),
column(3, plotlyOutput("networkPie"))
)
),
tabPanel(
"Event Frequency",
value = 'Custom',
fluidRow(
column(3, uiOutput("VisualizeCustomNetwork_Controls_0")),
column(3, uiOutput("VisualizeCustomNetwork_Controls_1"))
),
plotlyOutput("VisualizeCustomNetwork")
# verbatimTextOutput("hover"),
# verbatimTextOutput("click")
),
tabPanel(
"Other networks",
uiOutput("Other_Network_Tab_Controls"),
visNetworkOutput("otherVisNetwork", width = "100%", height = "1200px")
),
tabPanel("Role Maps",uiOutput("Role_map_controls"), plotlyOutput("Role_map_output") )
)
)