Удаление значений NA в списке (сохранить структуру)

Question

Я использую эту функцию, которую я написал, чтобы применить ее ко всем столбцам во фрейме данных о полетах из nycflights13.Я хочу удалить значения NA, которые встречаются в каждой строке, но при этом сохранить ту же структуру, что и выходные данные.Как бы я поступил так?

checker <- function(x){
  if(is.numeric(x)){
    max.x <- max(x, na.rm = TRUE)
    min.x <- min(x, na.rm = TRUE)
    vectorlist <- list(max=max.x, min=min.x)
    return(vectorlist)
  } else vectorlist <- list(max = NA, min = NA)
  return(vectorlist)
}
flightlist <- t(sapply(flights, checker))
flightlist