Due to a scheduled upgrade to version 14.10, GitLab will be unavailabe on Monday 30.05., from 19:00 until 20:00.

Commit 5d11aefb authored by dmattek's avatar dmattek
Browse files

Changed output in debug mode

parent 61f2fcf0
...@@ -199,7 +199,7 @@ modSelOutliers = function(input, output, session, in.data) { ...@@ -199,7 +199,7 @@ modSelOutliers = function(input, output, session, in.data) {
# Identify outliers and remove them from dt # Identify outliers and remove them from dt
dtReturn = reactive({ dtReturn = reactive({
cat(file = stdout(), 'modSelOutliers: dtReturn\n') cat(file = stdout(), 'modSelOutliers:dtReturn\n')
loc.out = in.data() loc.out = in.data()
...@@ -228,7 +228,7 @@ modSelOutliers = function(input, output, session, in.data) { ...@@ -228,7 +228,7 @@ modSelOutliers = function(input, output, session, in.data) {
) )
if (DEB) { if (DEB) {
cat(file = stdout(), 'selOutliers.dtReturn: Outlier points:\n') cat(file = stdout(), '\nmodSelOutliers:dtReturn: Outlier points:\n')
print(loc.outpts) print(loc.outpts)
} }
...@@ -251,7 +251,7 @@ modSelOutliers = function(input, output, session, in.data) { ...@@ -251,7 +251,7 @@ modSelOutliers = function(input, output, session, in.data) {
loc.idgaps = loc.out[, max(get(COLIDXDIFF)), by = c(COLID)][V1 >= input$slOutliersGapLen, get(COLID)] loc.idgaps = loc.out[, max(get(COLIDXDIFF)), by = c(COLID)][V1 >= input$slOutliersGapLen, get(COLID)]
if (DEB) { if (DEB) {
cat(file = stdout(), '\nselOutliers.dtReturn: Track IDs with max gap >= threshold:\n') cat(file = stdout(), '\nmodSelOutliers:dtReturn: Track IDs with max gap >= threshold:\n')
if (length(loc.idgaps) > 0) if (length(loc.idgaps) > 0)
print(loc.idgaps) else print(loc.idgaps) else
cat("none\n") cat("none\n")
...@@ -272,7 +272,7 @@ modSelOutliers = function(input, output, session, in.data) { ...@@ -272,7 +272,7 @@ modSelOutliers = function(input, output, session, in.data) {
# x-check: print all rows with NA's # x-check: print all rows with NA's
if (DEB) { if (DEB) {
cat(file = stdout(), '\nselOutliers.dtReturn: Rows with NAs to interpolate:\n') cat(file = stdout(), '\nmodSelOutliers:dtReturn: Rows with NAs to interpolate:\n')
print(loc.out[rowSums(is.na(loc.out)) > 0, ]) print(loc.out[rowSums(is.na(loc.out)) > 0, ])
} }
......
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