Use canonical data.table syntax for subsetting

Merck · Mar 18, 2024 · f22083e · f22083e
1 parent a82d950
commit f22083e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/pw_info.R b/R/pw_info.R
@@ -205,7 +205,7 @@ pw_info <- function(
   setorderv(ans, cols = c("time", "stratum"))
   ans <- ans[order(t), .SD, by = .(time, stratum)]
   # filter out the rows with 0 events
-  ans[!is_almost_k(event, 0), ]
+  ans <- ans[!is_almost_k(event, 0L)]
   setDF(ans)
   return(ans)
 }