Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
pertz-lab
shiny-timecourse-inspector
Commits
bc2ff188
Commit
bc2ff188
authored
Sep 24, 2019
by
dmattek
Browse files
Added: loader spinner
parent
de7abfd2
Changes
7
Hide whitespace changes
Inline
Side-by-side
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