-
Notifications
You must be signed in to change notification settings - Fork 1
/
app.R
95 lines (84 loc) · 2.48 KB
/
app.R
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
"
Author: Hèctor García Guillén
Name: app.R
Description:
Date: 17/06/07
Version: 1.1
"
######################################################################################
# Install and load all necessary libreries to run app
#source(file.path("server", "scripts", "loadLibreries.R"))
# Load all files to execute multiplot and gene browser funtionalities
#source(file.path("server", "scripts", "loadFiles.R"), local = TRUE)$value
# If RStudio shows error "" execute commands:
# 1 - unloadNamespace("shiny")
# 2 - require(shiny)
######################################################################################
"
Name: ui
Description: contain all interface code
Date: 17/06/07
Version: 1.1
Param: skin, Change the dashboard interface color
header, Page header
sidebar, Page sidebar, menu
body, Page body
Return: none
"
if (interactive()) {
shinyApp(
ui <- dashboardPage(
# Change the dashboard interface color
#skin = "blue",
# Page header
dashboardHeader(
title = "SUPPA Browser",
titleWidth = "100%"
),
# Page sidebar, menu
dashboardSidebar(
width = 200,
disable = T,
sidebarMenu(
id = "mainSidebar",
collapsed = T,
menuItem(
text = "Gene Browser B",
tabName = "mainPage",
icon = icon("glyphicon glyphicon-search", lib = "glyphicon")
)
)
),
# Page body
dashboardBody(
useShinyjs(),
# includeCSS to link myself stylesheet
includeCSS("www/custom.css"),
# Body content
# Loading message
tags$div(
id = "loading-content",
h2("Loading...")
),
hidden(
tags$div(
id = "app-content",
p("Testing loading gif."))
),
# The main app code goes here
source(file.path("ui", "mainPageUi.R"), local = TRUE)$value
, source(file.path("ui","footer.R"), local = TRUE)$value
)
),
server <- function(input, output, session) {
# change max upload files
options(shiny.maxRequestSize=3000*1024^2)
# delete warning messages
options(warn=-1)
source(file.path("server", "scripts", "loadFiles.R"), local = TRUE)$value
source(file.path("server", "mainPageServer.R"), local = TRUE)$value
hide(id = "loading-content", anim = TRUE, animType = "fade")
show("app-content")
}
)
}