Fix |> to be %>%

nlmixr2 · Feb 14, 2025 · 2436284 · 2436284
1 parent 02615eb
commit 2436284
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/CTS.R b/R/CTS.R
@@ -26,10 +26,10 @@ toTrialDuration <- function(ev, trialEnd, interval, writeDir = NULL) {
     data.frame(id = id, time = seq(time, time+trialEnd, interval))
   }, id = reg$id, time = reg$time
   )
-  reg <- do.call(rbind, reg) |>
+  reg <- do.call(rbind, reg) %>%
     merge(unique(ev[, names(ev) != "time", drop = FALSE]), by = "id", all.x = T)
   reg <- et(reg)
-  if(is.character(writeDir)){
+  if(is.character(writeDir)) {
     write.csv(reg, writeDir, row.names = F)
     }