Add nocov to branches of sTeve() that depend on the month.

The actual code is already covered, this concerns the case when the type parameter is missing.
R-Lum · Oct 7, 2024 · 3c65df9 · 3c65df9
1 parent 36b0b43
commit 3c65df9
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/R/zzz.R b/R/zzz.R
@@ -87,13 +87,15 @@ sTeve<- function(n_frames = 10, t_animation = 2, n.tree = 7, type) {
 
   ## select showtime item based on month or user-defined type
   if(missing(type) == TRUE) {
+    # nocov start
     if(month >= 1 & month <= 3) {
       type <- 1
     } else if(month >3 & month <= 11) {
       type <- 2
     } else if(month > 11 & month <= 12) {
       type <- 3
     }
+    # nocov end
   }