correct input checking

LittleBeannie · LittleBeannie · commit 6a1ca3d4afbb · 2024-10-24T11:07:45.000-04:00
diff --git a/R/gs_info_ahr.R b/R/gs_info_ahr.R
@@ -111,7 +111,9 @@ gs_info_ahr <- function(enroll_rate = define_enroll_rate(duration = c(2, 2, 10),
   }
   # if both `analysis_time` and `event` are provided, check they are of same length
   if (!is.null(analysis_time) && !is.null(event)) {
-    stop("gs_info_ahr(): If both event and analysis_time specified, must have same length")
+    if (length(analysis_time) != length(event)) {
+      stop("gs_info_ahr(): If both event and analysis_time specified, must have same length")
+    }
   }
 
   # -------------------------- #

Original file line number	Diff line number	Diff line change
`@@ -111,7 +111,9 @@ gs_info_ahr <- function(enroll_rate = define_enroll_rate(duration = c(2, 2, 10),`
`111`	`111`	`}`
`112`	`112`	# if both `analysis_time` and `event` are provided, check they are of same length
`113`	`113`	`if (!is.null(analysis_time) && !is.null(event)) {`
`114`		`- stop("gs_info_ahr(): If both event and analysis_time specified, must have same length")`
	`114`	`+ if (length(analysis_time) != length(event)) {`
	`115`	`+ stop("gs_info_ahr(): If both event and analysis_time specified, must have same length")`
	`116`	`+ }`
`115`	`117`	`}`
`116`	`118`
`117`	`119`	`# -------------------------- #`