# library(two.laws.big.bang)
# library(two.laws.dev)
PackageData <- PackageDataClass$new("us-babynames")
PackageData$DownloadAndExtractZip("https://www.ssa.gov/oact/babynames/names.zip")
# From: http://www.ssa.gov/oact/babynames/limits.html
all <- dir(PackageData$CacheFolder, "\\.txt$", full.names = TRUE)
all %<>% sort()
ReadBabyNameFile <- function(path){
BabyNames <- readr::read_csv(path, col_names = FALSE, col_types = list(X2 = readr::col_character()))
names(BabyNames) <- c("Name", "Sex", "Count")
BabyNames$Year = as.numeric(gsub("[^0-9]", "", basename(path)))
BabyNames %<>%
tibble::as_tibble() %>%
dplyr::select(Year, Sex, Name, Count) %>%
dplyr::arrange(Sex, desc(Count))
return(BabyNames)
}
us.babynames <- dplyr::bind_rows(lapply(all, ReadBabyNameFile)) %>%
df_filter(Count > 10000)
devtools::use_data(us.babynames, compress = "xz", overwrite = T)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.