Ensure return is named. Fixes #153

tidyverts · Nov 13, 2024 · 6478a86 · 6478a86
1 parent 2c8142f
commit 6478a86
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/guerrero.R b/R/guerrero.R
@@ -28,7 +28,7 @@
 #'
 #' @export
 guerrero <- function(x, lower = -0.9, upper = 2, .period = 2L) {
-  if(all(x == x[1])) return(1)
+  if(all(x == x[1])) return(c(lambda_guerrero = 1))
 
   # Prepare seasonal subseries
   .period <- max(2L, .period)