Merge pull request #503 from Merck/pipe-note

Avoid native pipe check note or build warning on R >= 4.5.0

Author: LittleBeannie

R/expected_time.R

@@ -125,7 +125,7 @@ expected_time <- function(
       enroll_rate = enroll_rate, fail_rate = fail_rate,
       total_duration = res$root, ratio = ratio
     )
-    return(ans |> select(-n))
+    return(ans %>% select(-n))
   }
 }
 

R/gs_info_ahr.R

@@ -123,7 +123,7 @@ gs_info_ahr <- function(enroll_rate = define_enroll_rate(duration = c(2, 2, 10),
   if (!is.null(analysis_time)) {
     # calculate events given the `analysis_time`
     avehr <- ahr(enroll_rate = enroll_rate, fail_rate = fail_rate,
-                 ratio = ratio, total_duration = analysis_time) |> select(-n)
+                 ratio = ratio, total_duration = analysis_time) %>% select(-n)
     # check if the above events >= targeted events
     for (i in seq_along(event)) {
       if (avehr$event[i] < event[i]) {