# NOT RUN {
library(dplyr)
library(tibble)
dat <- tribble(
  ~c1, ~c2, ~c3, ~c4,
    1,   3,   1,   1,
    2,   2,   1,   1,
    3,   1,   2,   3,
    1,   2,   1,   2,
    3,  NA,   3,   1,
   NA,   3,  NA,   2
)
row_count(dat, count = 1)
row_count(dat, count = NA)
row_count(dat, c1:c3, count = 2, append = TRUE)
col_count(dat, count = 1)
col_count(dat, count = NA)
col_count(dat, c1:c3, count = 2, append = TRUE)
# }
Run the code above in your browser using DataLab