Commit 352c21f8 authored by dmattek's avatar dmattek

Trim to significant digits in tabs

parent c54cbe57
...@@ -106,7 +106,8 @@ modStats = function(input, output, session, ...@@ -106,7 +106,8 @@ modStats = function(input, output, session,
filename = 'hitStats'), filename = 'hitStats'),
list(extend='pdf', list(extend='pdf',
filename= 'hitStats')), 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
...@@ -97,7 +97,7 @@ modTrackStats = function(input, output, session, ...@@ -97,7 +97,7 @@ modTrackStats = function(input, output, session,
tracksLenMean = mean(nTpts), tracksLenMean = mean(nTpts),
tracksLenSD = sd(nTpts), tracksLenSD = sd(nTpts),
tracksLenMedian = median(as.double(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')) setnames(loc.dt.aggr, c(in.bycols, 'nTracks', 'Mean Length', 'SD', 'Median Length', 'IQR'))
...@@ -131,7 +131,7 @@ modTrackStats = function(input, output, session, ...@@ -131,7 +131,7 @@ modTrackStats = function(input, output, session,
filename = 'hitStats'), filename = 'hitStats'),
list(extend='pdf', list(extend='pdf',
filename= 'hitStats')), filename= 'hitStats')),
text = 'Download')))) text = 'Download')))) %>% formatSignif(3:4, digits = SIGNIFDIGITSINTAB)
else else
return(NULL) return(NULL)
}) })
...@@ -166,7 +166,7 @@ modTrackStats = function(input, output, session, ...@@ -166,7 +166,7 @@ modTrackStats = function(input, output, session,
filename = 'hitStats'), filename = 'hitStats'),
list(extend='pdf', list(extend='pdf',
filename= 'hitStats')), filename= 'hitStats')),
text = 'Download')))) %>% formatRound(3:10) text = 'Download')))) %>% formatSignif(3:10, digits = SIGNIFDIGITSINTAB)
else else
return(NULL) return(NULL)
}) })
...@@ -208,7 +208,7 @@ modTrackStats = function(input, output, session, ...@@ -208,7 +208,7 @@ modTrackStats = function(input, output, session,
language = list( language = list(
zeroRecords = "No records to display") zeroRecords = "No records to display")
) )
) %>% formatRound(3:6) )
}) })
} }
\ No newline at end of file
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment