files <- dir("data-raw/types/", full.names = TRUE)
types <- bind_rows(lapply(files, read_csv))
types %>% distinct() %>%
arrange(Variable)
select(Variable) %>%
count(Variable) %>%
filter(n > 1)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.