Possible fix for twitter#77

oskar-j · web-flow · commit e48384016be4 · 2016-11-29T15:14:05.000+01:00
after granulation from sec to min, assign 'min' so the switch instruction can now work properly
diff --git a/R/ts_anom_detection.R b/R/ts_anom_detection.R
@@ -164,6 +164,7 @@ AnomalyDetectionTs <- function(x, max_anoms = 0.10, direction = 'pos',
   # Aggregate data to minutely if secondly
   if(gran == "sec"){
     x <- format_timestamp(aggregate(x[2], format(x[1], "%Y-%m-%d %H:%M:00"), eval(parse(text="sum"))))
+    gran <- "min"
   }
 
   period = switch(gran,

Original file line number	Diff line number	Diff line change
`@@ -164,6 +164,7 @@ AnomalyDetectionTs <- function(x, max_anoms = 0.10, direction = 'pos',`
`164`	`164`	`# Aggregate data to minutely if secondly`
`165`	`165`	`if(gran == "sec"){`
`166`	`166`	`x <- format_timestamp(aggregate(x[2], format(x[1], "%Y-%m-%d %H:%M:00"), eval(parse(text="sum"))))`
	`167`	`+ gran <- "min"`
`167`	`168`	`}`
`168`	`169`
`169`	`170`	`period = switch(gran,`