8 lines
145 B
Text
8 lines
145 B
Text
|
items %>%
|
||
|
|
group_by(id) %>%
|
||
|
|
filter(n() > 2) %>%
|
||
|
|
mutate(count = n()) %>%
|
||
|
|
ungroup() %>%
|
||
|
|
distinct(id, .keep_all = TRUE)
|
||
|
|
write_csv("items.csv")
|