You can also use tidyr::drop_na()
is a little more straight forward
library(tidyverse)
dat <- data.frame(
row.names = c("2717","2718","2719","2720","2721",
"2722","2723","2724","2725","2726","2727","2728","2729",
"2730"),
x = c(23234L,23461L,25644L,25824L,24287L,
25454L,23849L,23221L,NA,NA,NA,NA,NA,NA),
y = c(362L,427L,550L,530L,453L,353L,226L,
223L,NA,NA,NA,NA,NA,NA)
)
dat %>%
drop_na()
#> x y
#> 2717 23234 362
#> 2718 23461 427
#> 2719 25644 550
#> 2720 25824 530
#> 2721 24287 453
#> 2722 25454 353
#> 2723 23849 226
#> 2724 23221 223