R/count_na_rows.R

Defines functions count_na_rows

Documented in count_na_rows

#' Count the number of \code{NA}s per variable.
#' 
#' \code{count_na_rows} counts the number of \code{NA}s per variable.
#'
#' @param population tbl with grouping (metadata) and observation variables.
#' @param variables character vector specifying observation variables.
#'
#' @return data frame with frequency of \code{NA}s per variable.
#'
#' @importFrom magrittr %>%
#' @importFrom magrittr %<>%
#' 
#'@examples
#'
#' population <- tibble::data_frame(
#'    Metadata_group = c("control", "control", "control", "control",
#'                       "experiment", "experiment", "experiment", "experiment"),
#'    Metadata_batch = c("a", "a", "b", "b", "a", "a", "b", "b"),
#'    AreaShape_Area = c(10, 12, 15, 16, 8, 8,7, 7),
#'    AreaShape_length = c(2, 3, NA, NA, 4, 5, 1, 5)
#' )
#' variables <- c('AreaShape_Area','AreaShape_length')
#' count_na_rows(population, variables)
#' 
#' @export
count_na_rows <- function(population, variables) {
  population %>%
    dplyr::mutate_at(variables, dplyr::funs(is.na)) %>%
    dplyr::summarize_at(variables, dplyr::funs(sum)) %>%
    dplyr::collect() %>%
    data.frame()
}

Try the cytominer package in your browser

Any scripts or data that you put into this service are public.

cytominer documentation built on Sept. 18, 2017, 1:03 a.m.