made results consistent for ts_anom_detection

terrytangyuan · terrytangyuan · commit b9399b25faa9 · 2015-08-03T22:11:14.000-04:00
diff --git a/R/ts_anom_detection.R b/R/ts_anom_detection.R
@@ -279,7 +279,7 @@ AnomalyDetectionTs <- function(x, max_anoms = 0.10, direction = 'pos',
   # If there are no anoms, then let's exit
   if(anom_pct == 0){
     if(verbose) message("No anomalies detected.")
-    return (list("anoms"=NULL, "plot"=NULL))
+    return (list("anoms"=data.frame(), "plot"=plot.new()))
   }
 
   if(plot){
@@ -341,6 +341,6 @@ AnomalyDetectionTs <- function(x, max_anoms = 0.10, direction = 'pos',
   if(plot){
     return (list(anoms = anoms, plot = xgraph))
   } else {
-    return (list(anoms = anoms, plot = NULL))
+    return (list(anoms = anoms, plot = plot.new()))
   }
 }

Original file line number	Diff line number	Diff line change
`@@ -279,7 +279,7 @@ AnomalyDetectionTs <- function(x, max_anoms = 0.10, direction = 'pos',`
`279`	`279`	`# If there are no anoms, then let's exit`
`280`	`280`	`if(anom_pct == 0){`
`281`	`281`	`if(verbose) message("No anomalies detected.")`
`282`		`- return (list("anoms"=NULL, "plot"=NULL))`
	`282`	`+ return (list("anoms"=data.frame(), "plot"=plot.new()))`
`283`	`283`	`}`
`284`	`284`
`285`	`285`	`if(plot){`
`@@ -341,6 +341,6 @@ AnomalyDetectionTs <- function(x, max_anoms = 0.10, direction = 'pos',`
`341`	`341`	`if(plot){`
`342`	`342`	`return (list(anoms = anoms, plot = xgraph))`
`343`	`343`	`} else {`
`344`		`- return (list(anoms = anoms, plot = NULL))`
	`344`	`+ return (list(anoms = anoms, plot = plot.new()))`
`345`	`345`	`}`
`346`	`346`	`}`