R/row_counts.R

In omopr: OMOP CDM Databases using the Tidyverse

Defines functions row_counts

Documented in row_counts

row_counts <- function(listOfTblRefs) {
    counts = lapply(listOfTblRefs, function(x) {
        x %>% count() %>% collect()
    })
    bind_rows(counts) %>%
        rename( "count" = "n") %>%
        bind_cols(table = names(listOfTblRefs))
    }

Try the omopr package in your browser