删除列表中的NA值（保留结构）

Question

我正在使用此函数，该函数用于从nycflights13应用到flights数据框中的所有列。我想删除每行中出现的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