Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
S
shiny-timecourse-inspector
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
2
Issues
2
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Incidents
Environments
Packages & Registries
Packages & Registries
Container Registry
Analytics
Analytics
CI / CD
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
pertz-lab
shiny-timecourse-inspector
Commits
bc2ff188
Commit
bc2ff188
authored
Sep 24, 2019
by
dmattek
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Added: loader spinner
parent
de7abfd2
Changes
7
Hide whitespace changes
Inline
Side-by-side
Showing
7 changed files
with
16 additions
and
9 deletions
+16
-9
README.md
README.md
+2
-1
modules/auxfunc.R
modules/auxfunc.R
+1
-0
modules/tabClHier.R
modules/tabClHier.R
+1
-1
modules/tabClHierSpar.R
modules/tabClHierSpar.R
+1
-1
modules/trajPlot.R
modules/trajPlot.R
+4
-4
server.R
server.R
+5
-0
ui.R
ui.R
+2
-2
No files found.
README.md
View file @
bc2ff188
...
...
@@ -14,6 +14,7 @@ Following packages need to be installed in order to run the app locally:
*
shiny
*
shinyjs
*
shinyBS
*
shinycssloaders
*
data.table
*
DT
*
ggplot2
...
...
@@ -34,7 +35,7 @@ Following packages need to be installed in order to run the app locally:
Install packages using
`install.packages('name_of_the_package_from_the_list_above')`
command in RStudio command line.
```
install.packages(c("shiny", "shinyjs", "shinyBS",
install.packages(c("shiny", "shinyjs", "shinyBS",
"shinycssloaders",
"data.table", "DT",
"ggplot2", "gplots", "plotly", "scales", "grid",
"dendextend", "RColorBrewer",
...
...
modules/auxfunc.R
View file @
bc2ff188
...
...
@@ -15,6 +15,7 @@ library(Hmisc) # for CI calculation
# Global parameters ----
# if true, additional output printed to R console
DEB
=
T
...
...
modules/tabClHier.R
View file @
bc2ff188
...
...
@@ -166,7 +166,7 @@ clustHierUI <- function(id, label = "Hierarchical CLustering") {
downPlotUI
(
ns
(
'downPlotHier'
),
"Download PNG"
),
actionButton
(
ns
(
'butPlotHierHeatMap'
),
'Plot!'
),
plotOutput
(
ns
(
'outPlotHier'
))
withSpinner
(
plotOutput
(
ns
(
'outPlotHier'
)
))
),
tabPanel
(
'Averages'
,
...
...
modules/tabClHierSpar.R
View file @
bc2ff188
...
...
@@ -174,7 +174,7 @@ clustHierSparUI <- function(id, label = "Sparse Hierarchical CLustering") {
downPlotUI
(
ns
(
'downPlotHierSparHM'
),
"Download PNG"
),
actionButton
(
ns
(
'butPlotHierSparHeatMap'
),
'Plot!'
),
plotOutput
(
ns
(
'outPlotHierSpar'
))
withSpinner
(
plotOutput
(
ns
(
'outPlotHierSpar'
)
))
),
tabPanel
(
'Averages'
,
...
...
modules/trajPlot.R
View file @
bc2ff188
...
...
@@ -97,15 +97,15 @@ modTrajPlot = function(input, output, session,
output
$
uiPlotTraj
=
renderUI
({
if
(
input
$
chBplotTrajInt
)
plotlyOutput
(
withSpinner
(
plotlyOutput
(
ns
(
"outPlotTrajInt"
),
width
=
paste0
(
input
$
inPlotTrajWidth
,
'%'
),
height
=
paste0
(
input
$
inPlotTrajHeight
,
'px'
)
height
=
paste0
(
input
$
inPlotTrajHeight
,
'px'
)
)
)
else
plotOutput
(
withSpinner
(
plotOutput
(
ns
(
"outPlotTraj"
),
width
=
paste0
(
input
$
inPlotTrajWidth
,
'%'
),
height
=
paste0
(
input
$
inPlotTrajHeight
,
'px'
)
height
=
paste0
(
input
$
inPlotTrajHeight
,
'px'
)
)
)
})
...
...
server.R
View file @
bc2ff188
...
...
@@ -7,6 +7,8 @@
library
(
shiny
)
library
(
shinyjs
)
#http://deanattali.com/shinyjs/
library
(
shinyBS
)
# for tooltips
library
(
shinycssloaders
)
# for loader animations
library
(
data.table
)
library
(
ggplot2
)
library
(
gplots
)
# for heatmap.2
...
...
@@ -30,6 +32,9 @@ library(pracma) # for trapz
# change to increase the limit of the upload file size
options
(
shiny.maxRequestSize
=
200
*
1024
^
2
)
# colour of loader spinner (shinycssloaders)
options
(
spinner.color
=
"#00A8AA"
)
# Server logic ----
shinyServer
(
function
(
input
,
output
,
session
)
{
useShinyjs
()
...
...
ui.R
View file @
bc2ff188
...
...
@@ -7,8 +7,8 @@
library
(
shiny
)
library
(
shinyjs
)
#http://deanattali.com/shinyjs/
library
(
shinyBS
)
library
(
shinyjs
)
#
http://deanattali.com/shinyjs/
library
(
shinyBS
)
# for tooltips
shinyUI
(
fluidPage
(
useShinyjs
(),
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment