diff --git a/R/pairwise_survdiff.R b/R/pairwise_survdiff.R
index 82d3569..7b40561 100644
--- a/R/pairwise_survdiff.R
+++ b/R/pairwise_survdiff.R
@@ -56,7 +56,7 @@ pairwise_survdiff <- function(formula, data, p.adjust.method = "BH", na.action,
   # Removing missing value
   # ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
   .is.na <- data[, group_var, drop = FALSE] %>%
-    apply(1, function(.row){NA %in% .row})
+    apply(MARGIN = 1L, anyNA)
   data <- data[!.is.na, ]
 
   # Grouping variables