Repository navigation
Expand file tree
/
Copy pathmovingWindow.R
More file actions
113 lines (86 loc) · 5.29 KB
/
Copy pathmovingWindow.R
File metadata and controls
113 lines (86 loc) · 5.29 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
# Server Output Functions for Moving Window Tab
output$Moving_Window_Tab_Controls_1 <- renderUI({
selectizeInput("MovingWindowMapInputID",label = h4("Choose POV:"), get_POV_names() )
})
output$Moving_Window_Tab_Controls_2 <- renderUI({
req(input$MovingWindowMapInputID)
zoom_limit = zoom_upper_limit(get_POV( input$MovingWindowMapInputID))
if (zoom_limit == 1)
{tags$h4("Zooming not available with this POV")}
else
{sliderInput("MovingWindowZoomID",
label = h4("Zoom in and out by event similarity:"),
1,zoom_limit,zoom_limit, step = 1, ticks=FALSE) }
})
output$Moving_Window_Tab_Controls_3 <- renderUI({
sliderInput("MovingWindowSizeID","Window Size", 1, numThreads(threadedEventsMove(),"threadNum" ),5,step=1,ticks=FALSE )
})
output$Moving_Window_Tab_Controls_3a <- renderUI({
sliderInput("MovingWindowIncrement","Move window by", 1, input$MovingWindowSizeID, 1, step=1,ticks=FALSE )
})
output$Moving_Window_Tab_Controls_4_A <- renderUI({
sliderInput("WindowLocation_A_ID","Window Location", 1,numThreads(threadedEventsMove(),"threadNum" ),1,step=1,ticks=FALSE )
})
output$Moving_Window_Tab_Controls_4_B <- renderUI({
sliderInput("WindowLocation_B_ID","Window Location", 1,numThreads(threadedEventsMove(),"threadNum" ),1,step=1,ticks=FALSE )
})
output$single_moving_window_timeline = renderPlotly({
req(input$MovingWindowSizeID, input$MovingWindowIncrement)
trace = window_correlation( threadedEventsMove(), input$MovingWindowSizeID, input$MovingWindowIncrement, 2)
movingWindowCorrelation( trace ) })
output$dual_moving_window_timeline = renderPlotly({
trace = dual_window_correlation( threadedEventsMove(), input$MovingWindowSizeID, input$MovingWindowIncrement, 2)
dualmovingWindowCorrelation( trace ) })
## Conditional controls for both side A and B
output$Moving_4_controls <- renderUI({sliderInput("M_4_Theshold","Display edges above", 0,1,0,step=0.01,ticks=FALSE )})
output$Moving_5_controls <- renderUI({sliderInput("M_5_Theshold","Display edges above", 0,1,0,step=0.01,ticks=FALSE )})
output$Moving_6_controls <- renderUI({button_choices = get_POV_EVENT_CF( input$MovingWindowMapInputID )
tags$div(
radioButtons("M_6_OtherNetworkCF","Graph co-occurrence relation between:",
choices = button_choices,
selected = button_choices[1], # always start with the first one
inline=TRUE),
sliderInput("M_6_Theshold","Display edges above", 0,1,0,step=0.01,ticks=FALSE ))})
output$Moving_7_controls <- renderUI({checkboxGroupInput("M_7_CFs","Pick Two:", get_POV_EVENT_CF( input$MovingWindowMapInputID ) )})
## New moving window outputs
#### Put all eight here #####
output$Moving_A_1 <- renderPlotly({ threadMap(threadedEventsMove_A(), "threadNum", "seqNum", get_Zoom_MOVE(), 15 ) })
output$Moving_B_1 <- renderPlotly({ threadMap(threadedEventsMove_B(), "threadNum", "seqNum", get_Zoom_MOVE(), 15 ) })
output$Moving_A_2 <- renderPlotly({ threadMap(threadedEventsMove_A(), "threadNum", "tStamp", get_Zoom_MOVE(), 15 ) })
output$Moving_B_2 <- renderPlotly({ threadMap(threadedEventsMove_B(), "threadNum", "tStamp", get_Zoom_MOVE(), 15 ) })
output$Moving_A_3 <- renderPlotly({ threadMap(threadedEventsMove_A(), "threadNum", "relativeTime", get_Zoom_MOVE(), 15 ) })
output$Moving_B_3 <- renderPlotly({ threadMap(threadedEventsMove_B(), "threadNum", "relativeTime", get_Zoom_MOVE(), 15 ) })
output$Moving_A_4 <- renderVisNetwork({
req(input$M_4_Theshold)
n = threads_to_network_original( threadedEventsMove_A(), "threadNum", get_Zoom_MOVE() )
n=filter_network_edges(n,input$M_4_Theshold)
circleVisNetwork( n , 'directed' ) })
output$Moving_B_4 <- renderVisNetwork({
req(input$M_4_Theshold)
n = threads_to_network_original( threadedEventsMove_B(), "threadNum", get_Zoom_MOVE() )
n=filter_network_edges(n,input$M_4_Theshold)
circleVisNetwork( n , 'directed' ) })
output$Moving_A_5 <- renderForceNetwork({
req(input$M_5_Theshold)
n = threads_to_network_original( threadedEventsMove_A(), 'threadNum', get_Zoom_MOVE(), 'threadNum' )
n = filter_network_edges(n,input$M_5_Theshold)
forceNetworkD3( n ) })
output$Moving_B_5 <- renderForceNetwork({
req(input$M_5_Theshold)
n = threads_to_network_original( threadedEventsMove_B(), 'threadNum', get_Zoom_MOVE(), 'threadNum' )
n = filter_network_edges(n,input$M_5_Theshold)
forceNetworkD3( n ) })
output$Moving_A_6 <- renderVisNetwork({
req(input$M_6_Theshold)
n = normalNetwork( threadedEventsMove_A(), selectOccFilter(), input$M_6_OtherNetworkCF )
n=filter_network_edges(n,input$M_6_Theshold)
circleVisNetwork( n ) })
output$Moving_B_6 <- renderVisNetwork({
req(input$M_6_Theshold)
n = normalNetwork( threadedEventsMove_B(), selectOccFilter(), input$M_6_OtherNetworkCF )
n=filter_network_edges(n,input$M_6_Theshold)
circleVisNetwork( n ) })
output$Moving_A_7 <- renderPlotly({ role_map( threadedEventsMove_A(), selectOccFilter(), input$M_7_CFs ) })
output$Moving_B_7 <- renderPlotly({ role_map( threadedEventsMove_B(), selectOccFilter(), input$M_7_CFs ) })
output$Moving_A_8 <- renderPlotly({ threadTrajectory(threadedEventsMove_A() ) })
output$Moving_B_8 <- renderPlotly({ threadTrajectory(threadedEventsMove_B() ) })