Элегантный способ сообщить об отсутствующих значениях в data.frame

Вот небольшой кусок кода, который я написал для отчета о переменных с отсутствующими значениями из фрейма данных. Я пытаюсь придумать более элегантный способ сделать это, который, возможно, вернет data.frame, но я застрял:

for (Var in names(airquality)) {
    missing <- sum(is.na(airquality[,Var]))
    if (missing > 0) {
        print(c(Var,missing))
    }
}

Edit: Я имею дело с data.frames с десятками и сотнями переменных, поэтому важно, чтобы мы сообщали только о переменных с отсутствующими значениями.