Я ищу "аккуратный" и лаконичный способ убедиться, что комбинация столбцов уникальна в таблице, используя assertr
.
Пока что это лучшее, что я мог придумать:
PasteRows <- function(df) {
apply(df, 1, paste, collapse = '')
}
tib <- tibble(a = c(1, 1, 3), b = c('a', 'b', 'b'))
tib %>%
assert_rows(PasteRows, is_uniq, a, b)
... но сначала я должен определить PasteRows
. Кроме того, я не уверен, что apply
имеет снижение производительности, потому что он преобразует тиббл в матрицу.
Как мне улучшить и сократить это?