assign the modified enroll rate back (similar to Merck#504)

yihui · yihui · commit 84a5cf17ceba · 2025-03-06T10:29:47.000-06:00
diff --git a/R/define.R b/R/define.R
@@ -60,7 +60,7 @@ define_enroll_rate <- function(
     rate = rate
   )
 
-  check_enroll_rate(df)
+  df <- check_enroll_rate(df)
 
   class(df) <- c("enroll_rate", class(df))
 

Original file line number	Diff line number	Diff line change
`@@ -60,7 +60,7 @@ define_enroll_rate <- function(`
`60`	`60`	`rate = rate`
`61`	`61`	`)`
`62`	`62`
`63`		`- check_enroll_rate(df)`
	`63`	`+ df <- check_enroll_rate(df)`
`64`	`64`
`65`	`65`	`class(df) <- c("enroll_rate", class(df))`
`66`	`66`