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,
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
......@@ -97,7 +97,7 @@ 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'))
......@@ -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')))) %>% formatRound(3:10)
text = 'Download')))) %>% formatSignif(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
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