From c3c1b11ab6649a240a8332b897631eb688c75ce0 Mon Sep 17 00:00:00 2001 From: Addison Klinke Date: Fri, 17 Apr 2020 16:07:22 -0600 Subject: [PATCH] avoid removing data if nothing matches cycles filter --- R/CountCycles.numeric.R | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/R/CountCycles.numeric.R b/R/CountCycles.numeric.R index 3c80c6d..a05b077 100755 --- a/R/CountCycles.numeric.R +++ b/R/CountCycles.numeric.R @@ -98,7 +98,10 @@ CountCycles.numeric <- function(x) { # Format and return cycles <- as.data.frame(cycles) cycles <- plyr::rename(cycles, c("V1" = "amplitude", "V2" = "mean", "V3" = "cycles")) - cycles <- cycles[-which(cycles$cycles == 0), ] + remove = which(cycles$cycles == 0) + if (length(remove) > 0) { + cycles <- cycles[-remove, ] + } class(cycles) <- c("rainflow", "data.frame") return(cycles) }