diff --git a/R/ts_anom_detection.R b/R/ts_anom_detection.R index a7e3abe..b5a6e6e 100644 --- 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)) } } diff --git a/R/vec_anom_detection.R b/R/vec_anom_detection.R index 4a16eb8..41a5116 100644 --- 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)) } }