Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
pertz-lab
shiny-timecourse-inspector
Commits
425d1f5e
Unverified
Commit
425d1f5e
authored
Oct 14, 2019
by
Maciej Dobrzynski
Committed by
GitHub
Oct 14, 2019
Browse files
Options
Browse Files
Download
Plain Diff
Merge pull request #7 from majpark21/master
Update file names for download
parents
e20b40eb
37288eb4
Changes
6
Hide whitespace changes
Inline
Side-by-side
Showing
6 changed files
with
14 additions
and
14 deletions
+14
-14
modules/auxfunc.R
modules/auxfunc.R
+3
-3
modules/downPlot.R
modules/downPlot.R
+2
-2
modules/tabAUC.R
modules/tabAUC.R
+1
-1
modules/tabClHierSpar.R
modules/tabClHierSpar.R
+6
-6
modules/tabDist.R
modules/tabDist.R
+1
-1
modules/tabScatter.R
modules/tabScatter.R
+1
-1
No files found.
modules/auxfunc.R
View file @
425d1f5e
...
...
@@ -66,12 +66,12 @@ COLNTRAJ = "nCells"
# file names
FCSVOUTLIERS
=
'outliers.csv'
FCSVTCCLEAN
=
'tCourses
Selected_clean
.csv'
FCSVTCCLEAN
=
'tCourses
Processed
.csv'
FPDFTCMEAN
=
"tCoursesMeans.pdf"
FPDFTCSINGLE
=
"tCourses.pdf"
FPDFTCPSD
=
'tCoursesPsd.pdf'
FPDFBOXAUC
=
'
boxplot
AUC.pdf'
FPDFBOXTP
=
'
boxplot
TP.pdf'
FPDFBOXAUC
=
'
distribution
AUC.pdf'
FPDFBOXTP
=
'
distribution
TP.pdf'
FPDFSCATTER
=
'scatter.pdf'
# Colour definitions ----
...
...
modules/downPlot.R
View file @
425d1f5e
...
...
@@ -36,7 +36,7 @@ downPlotUI <- function(id, label = "Download Plot") {
numericInput
(
ns
(
'inPlotWidth'
),
"Width [in]"
,
8.5
,
11
,
min
=
1
,
width
=
100
)
...
...
@@ -48,7 +48,7 @@ downPlotUI <- function(id, label = "Download Plot") {
numericInput
(
ns
(
'inPlotHeight'
),
"Height [in]"
,
11
,
8.5
,
min
=
1
,
width
=
100
)
...
...
modules/tabAUC.R
View file @
425d1f5e
...
...
@@ -88,7 +88,7 @@ tabAUCplot = function(input, output, session, in.data, in.fname) {
in.data
=
AUCcells
,
in.meascol
=
'AUC'
,
in.bycols
=
COLGR
,
in.fname
=
'
data4boxplot
AUC.csv'
)
in.fname
=
'
individuals
AUC.csv'
)
callModule
(
modAUCplot
,
'aucPlot'
,
in.data
=
AUCcells
,
...
...
modules/tabClHierSpar.R
View file @
425d1f5e
...
...
@@ -447,7 +447,7 @@ clustHierSpar <- function(input, output, session,
output
$
downCellClSpar
<-
downloadHandler
(
filename
=
function
()
{
paste0
(
'clust_hierchSpar_data_'
,
input
$
selectPlotHierSparDiss
,
ifelse
(
input
$
selectPlotHierSparDiss
==
"squared.distance"
,
"euclidean"
,
"manhattan"
)
,
'_'
,
input
$
selectPlotHierSparLinkage
,
'.csv'
)
},
...
...
@@ -574,7 +574,7 @@ clustHierSpar <- function(input, output, session,
createFnameHeatMap
=
reactive
({
paste0
(
'clust_hierchSparse_heatMap_'
,
input
$
selectPlotHierSparDiss
,
ifelse
(
input
$
selectPlotHierSparDiss
==
"squared.distance"
,
"euclidean"
,
"manhattan"
)
,
'_'
,
input
$
selectPlotHierSparLinkage
,
'.png'
)
...
...
@@ -583,7 +583,7 @@ clustHierSpar <- function(input, output, session,
createFnameTrajPlot
=
reactive
({
paste0
(
'clust_hierchSparse_tCourses_'
,
input
$
selectPlotHierSparDiss
,
ifelse
(
input
$
selectPlotHierSparDiss
==
"squared.distance"
,
"euclidean"
,
"manhattan"
)
,
'_'
,
input
$
selectPlotHierSparLinkage
,
'.pdf'
)
...
...
@@ -592,7 +592,7 @@ clustHierSpar <- function(input, output, session,
createFnameRibbonPlot
=
reactive
({
paste0
(
'clust_hierchSparse_tCoursesMeans_'
,
input
$
selectPlotHierSparDiss
,
ifelse
(
input
$
selectPlotHierSparDiss
==
"squared.distance"
,
"euclidean"
,
"manhattan"
)
,
'_'
,
input
$
selectPlotHierSparLinkage
,
'.pdf'
)
...
...
@@ -601,7 +601,7 @@ clustHierSpar <- function(input, output, session,
createFnamePsdPlot
=
reactive
({
paste0
(
'clust_hierchSparse_tCoursesPsd_'
,
input
$
selectPlotHierSparDiss
,
ifelse
(
input
$
selectPlotHierSparDiss
==
"squared.distance"
,
"euclidean"
,
"manhattan"
)
,
'_'
,
input
$
selectPlotHierSparLinkage
,
'.pdf'
)
...
...
@@ -610,7 +610,7 @@ clustHierSpar <- function(input, output, session,
createFnameDistPlot
=
reactive
({
paste0
(
'clust_hierchSparse_clDist_'
,
input
$
selectPlotHierSparDiss
,
ifelse
(
input
$
selectPlotHierSparDiss
==
"squared.distance"
,
"euclidean"
,
"manhattan"
)
,
'_'
,
input
$
selectPlotHierSparLinkage
,
'.pdf'
)
})
...
...
modules/tabDist.R
View file @
425d1f5e
...
...
@@ -37,7 +37,7 @@ tabDistPlot = function(input, output, session, in.data, in.fname) {
in.data
=
data4boxPlot
,
in.meascol
=
'y'
,
in.bycols
=
c
(
COLRT
,
COLGR
),
in.fname
=
'
data4boxplot
TP.csv'
)
in.fname
=
'
individuals
TP.csv'
)
callModule
(
modDistPlot
,
'distPlot'
,
in.data
=
data4boxPlot
,
...
...
modules/tabScatter.R
View file @
425d1f5e
...
...
@@ -27,7 +27,7 @@ helpText.tabScatter = c(
chBregression
=
'Add a line with linear regression and regions of 95% confidence interval.'
,
inAvgWin
=
paste0
(
"Length of the averaging window to smooth data before plotting. "
,
"Useful to avoid artefacts
in
due to spurious variations at specific time points."
"Useful to avoid artefacts due to spurious variations at specific time points."
),
inPlotHeight
=
'Height in pixels of the displayed plot'
,
inPlotNcolFacet
=
'Number of facets in a row. Each facet displayes a scatter plot for a single group.'
,
...
...
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