doc(calc_designstorm): assertion

dimfalk · Mar 3, 2024 · 064cb09 · 064cb09
1 parent 564ddad
commit 064cb09
Showing 1 changed file with 0 additions and 3 deletions.
diff --git a/R/calc_designstorm.R b/R/calc_designstorm.R
@@ -34,15 +34,12 @@ calc_designstorm <- function(x = NULL,
   checkmate::assert_tibble(x)
 
   allowed_d <- attr(x, "durations_min")
-  checkmate::assert_numeric(d, len = 1)
   checkmate::assert_choice(d, allowed_d)
 
   allowed_tn <- attr(x, "returnperiods_a")
-  checkmate::assert_numeric(tn, len = 1)
   checkmate::assert_choice(tn, allowed_tn)
 
   allowed_type <- c("EulerI", "EulerII")
-  checkmate::assert_character(type, len = 1)
   checkmate::assert_choice(type, allowed_type)
 
   # pre-processing -------------------------------------------------------------