X-Git-Url: https://git.auder.net/?p=talweg.git;a=blobdiff_plain;f=R%2Fplot.R;h=b720e9a16fe588f492cb6a77af54516115b94bda;hp=9a0dbcd90147854d67bb33cad37c3aa30c6d55ce;hb=e5aa669afc0b71278d1a864fb0d4e2aff8032ef1;hpb=e030a6e31232332b73187eda25870e843152c174

diff --git a/R/plot.R b/R/plot.R
index 9a0dbcd..b720e9a 100644
--- 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