Должно работать, если вы используете any(is.na(.))
, например:
ds.tab <- ds %>%
mutate_if(function(x) any(is.na(x)), funs(highlights(.))) %>% ...
Или, если хотите, следующий синтаксис работает аналогично
ds.tab <- ds %>%
mutate_if(~any(is.na(.)), funs(highlights(.))) %>% ...