Repository navigation
Expand file tree
/
Copy pathvisualize.R
More file actions
78 lines (77 loc) · 2.84 KB
/
Copy pathvisualize.R
File metadata and controls
78 lines (77 loc) · 2.84 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
tabPanel(value = "visualize",
"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")
),
tabPanel(
"Data Table",
DT::dataTableOutput("visualizePOVData"))
)
)