Merge pull request #507 from yihui/fix-define_enroll_rate

LittleBeannie · web-flow · commit 0ee27bc434c6 · 2025-03-13T16:33:04.000-04:00
Assign the modified enroll rate back
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`