R/na_numb_sum.R

In jixing475/manuscriptsJX: manuscripts tools

#' @title sum of the na number in df
#' @description sum of the na number in df
#' @param df dataframe
#'
#' @return dataframe
#'
#' @examples
#'
#'
#' @rdname na_numb_sum
#' @export

na_numb_sum <- function(df) {
    df %>%
        purrr::map(~ is.na(.x) %>% sum()) %>%
        unlist() %>%
        sum()
}