An R script to search through baby names

name baby

if (!require("pacman")) install.packages("pacman")
pacman::p_load(babynames, dplyr)

lapply(seq(1, 50000, by=35), function(n){

    babynames %>%
        filter(year > 1940 & year < 1980) %>%
        group_by(name, sex)  %>% 
        summarize(n=sum(n))%>% 
        ungroup %>%
        arrange(desc(n)) %>%
        filter_(sex=="F") %>%
        `[`(n:(n + 35), ) %>%
        select(c(1, 3)) %>%
        print(n=35)

    cat(sprintf("\nNames: %s - %s\n", n, n + 35))

    flush.console()

    cat("Press [enter] to continue\n")
    ans <- readline()
    if (ans != "") {
        stop("So you've had enough then?")
    }

})