data-raw/all_types.r

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)
nebulae-co/saber documentation built on May 23, 2019, 1:31 p.m.