# 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