Merge jcpetkovich-dont-call-plot.new-when-plot-is-f

isalgueiro · Nov 24, 2017 · 2f862c0 · 2f862c0
2 parents 2406de3 + fd74906
commit 2f862c0
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/R/ts_anom_detection.R b/R/ts_anom_detection.R
@@ -299,7 +299,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) {
@@ -378,6 +378,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))
   }
 }
diff --git a/R/vec_anom_detection.R b/R/vec_anom_detection.R
@@ -224,7 +224,7 @@ AnomalyDetectionVec = 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){
@@ -287,6 +287,6 @@ AnomalyDetectionVec = 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))
   }
 }