# NOT RUN {
col_concat(mtcars)
library(magrittr) # for piping operator
# you can use "assert_rows", "is_uniq", and this function to
# check if joint duplicates (across different columns) appear
# in a data frame
# }
# NOT RUN {
mtcars %>%
assert_rows(col_concat, is_uniq, mpg, hp)
# fails because the first two rows are jointly duplicates
# on these two columns
# }
# NOT RUN {
mtcars %>%
assert_rows(col_concat, is_uniq, mpg, hp, wt) # ok
# }
Run the code above in your browser using DataLab