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
352c21f8
Commit
352c21f8
authored
Oct 09, 2019
by
dmattek
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Trim to significant digits in tabs
parent
c54cbe57
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
7 additions
and
6 deletions
+7
-6
modules/dispStats.R
modules/dispStats.R
+2
-1
modules/dispTrackStats.R
modules/dispTrackStats.R
+5
-5
No files found.
modules/dispStats.R
View file @
352c21f8
...
...
@@ -106,7 +106,8 @@ modStats = function(input, output, session,
filename
=
'hitStats'
),
list
(
extend
=
'pdf'
,
filename
=
'hitStats'
)),
text
=
'Download'
))))
%>%
formatRound
(
seq
(
loc.n.bycols
+
2
,
loc.n.bycols
+
1
+
5
),
3
)
text
=
'Download'
))))
%>%
formatSignif
(
seq
(
loc.n.bycols
+
2
,
loc.n.bycols
+
1
+
5
),
digits
=
SIGNIFDIGITSINTAB
)
})
}
\ No newline at end of file
modules/dispTrackStats.R
View file @
352c21f8
...
...
@@ -97,8 +97,8 @@ modTrackStats = function(input, output, session,
tracksLenMean
=
mean
(
nTpts
),
tracksLenSD
=
sd
(
nTpts
),
tracksLenMedian
=
median
(
as.double
(
nTpts
)),
tracksLenIQR
=
IQR
(
nTpts
)),
by
=
c
(
in.bycols
)]
tracksLenIQR
=
IQR
(
as.double
(
nTpts
)
)),
by
=
c
(
in.bycols
)]
setnames
(
loc.dt.aggr
,
c
(
in.bycols
,
'nTracks'
,
'Mean Length'
,
'SD'
,
'Median Length'
,
'IQR'
))
return
(
loc.dt.aggr
)
...
...
@@ -131,7 +131,7 @@ modTrackStats = function(input, output, session,
filename
=
'hitStats'
),
list
(
extend
=
'pdf'
,
filename
=
'hitStats'
)),
text
=
'Download'
))))
text
=
'Download'
))))
%>%
formatSignif
(
3
:
4
,
digits
=
SIGNIFDIGITSINTAB
)
else
return
(
NULL
)
})
...
...
@@ -166,7 +166,7 @@ modTrackStats = function(input, output, session,
filename
=
'hitStats'
),
list
(
extend
=
'pdf'
,
filename
=
'hitStats'
)),
text
=
'Download'
))))
%>%
format
Round
(
3
:
10
)
text
=
'Download'
))))
%>%
format
Signif
(
3
:
10
,
digits
=
SIGNIFDIGITSINTAB
)
else
return
(
NULL
)
})
...
...
@@ -208,7 +208,7 @@ modTrackStats = function(input, output, session,
language
=
list
(
zeroRecords
=
"No records to display"
)
)
)
%>%
formatRound
(
3
:
6
)
)
})
}
\ No newline at end of file
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