prevent creating plot window

yosuke-yasuda · yosuke-yasuda · commit 9e825d185d42 · 2017-02-15T17:34:39.000+09:00
diff --git a/R/ts_anom_detection.R b/R/ts_anom_detection.R
@@ -297,7 +297,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"=data.frame(), "plot"=plot.new()))
+    return (list("anoms"=data.frame(), "plot"=NULL))
   }
 
   if(plot){
@@ -359,6 +359,6 @@ AnomalyDetectionTs <- function(x, max_anoms = 0.10, direction = 'pos',
   if(plot){
     return (list(anoms = anoms, plot = xgraph))
   } else {
-    return (list(anoms = anoms, plot = plot.new()))
+    return (list(anoms = anoms, plot=NULL))
   }
 }

Original file line number	Diff line number	Diff line change
`@@ -297,7 +297,7 @@ AnomalyDetectionTs <- function(x, max_anoms = 0.10, direction = 'pos',`
`297`	`297`	`# If there are no anoms, then let's exit`
`298`	`298`	`if(anom_pct == 0){`
`299`	`299`	`if(verbose) message("No anomalies detected.")`
`300`		`- return (list("anoms"=data.frame(), "plot"=plot.new()))`
	`300`	`+ return (list("anoms"=data.frame(), "plot"=NULL))`
`301`	`301`	`}`
`302`	`302`
`303`	`303`	`if(plot){`
`@@ -359,6 +359,6 @@ AnomalyDetectionTs <- function(x, max_anoms = 0.10, direction = 'pos',`
`359`	`359`	`if(plot){`
`360`	`360`	`return (list(anoms = anoms, plot = xgraph))`
`361`	`361`	`} else {`
`362`		`- return (list(anoms = anoms, plot = plot.new()))`
	`362`	`+ return (list(anoms = anoms, plot=NULL))`
`363`	`363`	`}`
`364`	`364`	`}`