Yes, the tidyverse package (specifically dplyr) offers a more elegant and readable way to handle this.

library(dplyr)

UNI %>%
  filter(if_any(where(is.numeric), ~ !is.finite(.)))