improvements, updated report

[talweg.git] / R / plot.R

diff --git a/R/plot.R b/R/plot.R
index 9a0dbcd..b720e9a 100644 (file)
--- a/R/plot.R
+++ b/R/plot.R
@@ -71,7 +71,7 @@ plotFilaments <- function(data, index, limit=60)
                index = i - first_day + 1
                serie = c(data$getCenteredSerie(index), data$getCenteredSerie(index+1))
                if (!all(is.na(serie)))
-                       range(serie, na.rm=TRUE)
+                       return (range(serie, na.rm=TRUE))
                c()
        }) )
        grays = gray.colors(20, 0.1, 0.9) #TODO: 20 == magic number