X-Git-Url: https://git.auder.net/?p=talweg.git;a=blobdiff_plain;f=data%2Fscripts%2Frepair_HACK.R;fp=data%2Fscripts%2Frepair_HACK.R;h=69ae77425f488e0819885226d7eec1f934b46270;hp=0000000000000000000000000000000000000000;hb=25b75559e2d9bf84e2de35b851d93fefdae36e17;hpb=66877df35f2fc9561728537c713c963230b0de45

diff --git a/data/scripts/repair_HACK.R b/data/scripts/repair_HACK.R
new file mode 100644
index 0000000..69ae774
--- /dev/null
+++ b/data/scripts/repair_HACK.R
@@ -0,0 +1,27 @@
+			# HACK for test reports: complete some days with a few NAs, for nicer graphics
+			nas_in_serie = is.na(data$getSerie(today))
+			if (any(nas_in_serie))
+			{
+				if (sum(nas_in_serie) >= length(nas_in_serie) / 2)
+					return (NA)
+				for (i in seq_along(nas_in_serie))
+				{
+					if (nas_in_serie[i])
+					{
+						#look left
+						left = i-1
+						while (left>=1 && nas_in_serie[left])
+							left = left-1
+						#look right
+						right = i+1
+						while (right<=length(nas_in_serie) && nas_in_serie[right])
+							right = right+1
+						#HACK: modify by-reference Data object...
+						data$data[[today]]$serie[i] <<-
+							if (left==0) data$data[[today]]$serie[right]
+							else if (right==0) data$data[[today]]$serie[left]
+							else (data$data[[today]]$serie[left] + data$data[[today]]$serie[right]) / 2.
+					}
+				}
+			}
+