Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Support
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
S
shiny-timecourse-inspector
Project
Project
Details
Activity
Releases
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
2
Issues
2
List
Boards
Labels
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Packages
Packages
Container Registry
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
pertz-lab
shiny-timecourse-inspector
Commits
37288eb4
Commit
37288eb4
authored
Oct 14, 2019
by
majpark21
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Update file names for download
parent
ceafd450
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 @
37288eb4
...
...
@@ -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 @
37288eb4
...
...
@@ -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 @
37288eb4
...
...
@@ -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 @
37288eb4
...
...
@@ -446,7 +446,7 @@ clustHierSpar <- function(input, output, session,
output
$
downCellClSpar
<-
downloadHandler
(
filename
=
function
()
{
paste0
(
'clust_hierchSpar_data_'
,
i
nput
$
selectPlotHierSparDiss
,
i
felse
(
input
$
selectPlotHierSparDiss
==
"squared.distance"
,
"euclidean"
,
"manhattan"
)
,
'_'
,
input
$
selectPlotHierSparLinkage
,
'.csv'
)
},
...
...
@@ -573,7 +573,7 @@ clustHierSpar <- function(input, output, session,
createFnameHeatMap
=
reactive
({
paste0
(
'clust_hierchSparse_heatMap_'
,
i
nput
$
selectPlotHierSparDiss
,
i
felse
(
input
$
selectPlotHierSparDiss
==
"squared.distance"
,
"euclidean"
,
"manhattan"
)
,
'_'
,
input
$
selectPlotHierSparLinkage
,
'.png'
)
...
...
@@ -582,7 +582,7 @@ clustHierSpar <- function(input, output, session,
createFnameTrajPlot
=
reactive
({
paste0
(
'clust_hierchSparse_tCourses_'
,
i
nput
$
selectPlotHierSparDiss
,
i
felse
(
input
$
selectPlotHierSparDiss
==
"squared.distance"
,
"euclidean"
,
"manhattan"
)
,
'_'
,
input
$
selectPlotHierSparLinkage
,
'.pdf'
)
...
...
@@ -591,7 +591,7 @@ clustHierSpar <- function(input, output, session,
createFnameRibbonPlot
=
reactive
({
paste0
(
'clust_hierchSparse_tCoursesMeans_'
,
i
nput
$
selectPlotHierSparDiss
,
i
felse
(
input
$
selectPlotHierSparDiss
==
"squared.distance"
,
"euclidean"
,
"manhattan"
)
,
'_'
,
input
$
selectPlotHierSparLinkage
,
'.pdf'
)
...
...
@@ -600,7 +600,7 @@ clustHierSpar <- function(input, output, session,
createFnamePsdPlot
=
reactive
({
paste0
(
'clust_hierchSparse_tCoursesPsd_'
,
i
nput
$
selectPlotHierSparDiss
,
i
felse
(
input
$
selectPlotHierSparDiss
==
"squared.distance"
,
"euclidean"
,
"manhattan"
)
,
'_'
,
input
$
selectPlotHierSparLinkage
,
'.pdf'
)
...
...
@@ -609,7 +609,7 @@ clustHierSpar <- function(input, output, session,
createFnameDistPlot
=
reactive
({
paste0
(
'clust_hierchSparse_clDist_'
,
i
nput
$
selectPlotHierSparDiss
,
i
felse
(
input
$
selectPlotHierSparDiss
==
"squared.distance"
,
"euclidean"
,
"manhattan"
)
,
'_'
,
input
$
selectPlotHierSparLinkage
,
'.pdf'
)
})
...
...
modules/tabDist.R
View file @
37288eb4
...
...
@@ -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 @
37288eb4
...
...
@@ -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