-
Notifications
You must be signed in to change notification settings - Fork 5
Expand file tree
/
Copy pathUI.R
More file actions
47 lines (40 loc) · 1.81 KB
/
Copy pathUI.R
File metadata and controls
47 lines (40 loc) · 1.81 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
##########################################################################################################
# THREADNET: SHINY UI
# This software may be used according to the terms provided in the
# GNU General Public License (GPL-3.0) https://opensource.org/licenses/GPL-3.0?
# Absolutely no warranty!
##########################################################################################################
# Sept 7, 2017 New Shiny R version using architecture and advice from Ezra Brooks & Pat Bills
# March 21, 2018 New organization of tabs.
# May 2, 2018 Separation of tab definitions into files
# pdf(NULL) # prevent plotly errors
library(shiny)
library(networkD3)
library(visNetwork)
ui <- fluidPage(
visualizations <- c(
'Threads (event time)',
'Threads (actual time)',
'Threads (relative time)',
'Event network (circle)',
'Event network (force)',
'Other networks',
'Role Maps',
'Thread Trajectories'
),
# Application title
tags$h3(align='center', "ThreadNet 3 Development"),
# tags$audio( src='tellusastory.mp3',type='audio/mpeg', controls='TRUE'),
# tab definitions are under "ui" directory
tabsetPanel(
type = "tabs",
source(file.path("ui", "readData.R"), local = TRUE)$value,
source(file.path("ui", "choosePOV.R"), local = TRUE)$value,
source(file.path("ui", "visualize.R"), local = TRUE)$value,
source(file.path("ui", "subsets.R"), local = TRUE)$value,
source(file.path("ui", "comparisons.R"), local = TRUE)$value,
source(file.path("ui", "movingWindow.R"), local = TRUE)$value,
source(file.path("ui", "parameterSettings.R"), local = TRUE)$value,
source(file.path("ui", "acknowledgements.R"), local = TRUE)$value
)
)