R/data-raw/make_system_data.R

In actuarialvoodoo/passwdr: What the Package Does (One Line, Title Case)

local({
    word_list_file <- "https://www.eff.org/files/2016/07/18/eff_large_wordlist.txt"

    eff_word_list <- readr::read_tsv(
        word_list_file,
        col_names = c("num", "word"),
        col_types = "cc"
    )

    symbols <- c("?", "!", "@", "#", "%", "^", "&", "*", "(", ")")


    animals <- c(
        "aardvark",
        "albatross",
        "alligator",
        "ant",
        "anteater",
        "antelope",
        "ape",
        "armadillo",
        "herd",
        "baboon",
        "badger",
        "barracuda",
        "bat",
        "bear",
        "beaver",
        "bee",
        "bison",
        "boar",
        "galago",
        "butterfly",
        "caribou",
        "cat",
        "caterpillar",
        "cattle",
        "chamois",
        "cheetah",
        "chicken",
        "chimpanzee",
        "chinchilla",
        "chough",
        "clam",
        "cobra",
        "cockroach",
        "cod",
        "cormorant",
        "coyote",
        "crab",
        "herd",
        "crocodile",
        "crow",
        "curlew",
        "deer",
        "dinosaur",
        "dog",
        "dolphin",
        "donkey",
        "dove",
        "dragonfly",
        "duck",
        "dugong",
        "eagle",
        "echidna",
        "eel",
        "elephant",
        "elk",
        "emu",
        "falcon",
        "ferret",
        "finch",
        "fish",
        "flamingo",
        "fly",
        "fox",
        "frog",
        "gaur",
        "gazelle",
        "gerbil",
        "giraffe",
        "gnat",
        "goat",
        "goose",
        "goldfish",
        "gorilla",
        "goshawk",
        "grasshopper",
        "grouse",
        "guanaco",
        "poultry",
        "herd",
        "gull",
        "hamster",
        "hare",
        "hawk",
        "hedgehog",
        "heron",
        "herring",
        "hippopotamus",
        "hornet",
        "horse",
        "human",
        "hummingbird",
        "hyena",
        "lark",
        "lemur",
        "leopard",
        "lion",
        "llama",
        "lobster",
        "locust",
        "louse",
        "magpie",
        "mallard",
        "manatee",
        "marten",
        "mink",
        "monkey",
        "moose",
        "mouse",
        "mosquito",
        "mule",
        "newt",
        "nightingale",
        "octopus",
        "opossum",
        "oryx",
        "ostrich",
        "otter",
        "owl",
        "parrot",
        "partridge",
        "peafowl",
        "pelican",
        "penguin",
        "pheasant",
        "pig",
        "pigeon",
        "pony",
        "porcupine",
        "porpoise",
        "rabbit",
        "raccoon",
        "raven",
        "herd",
        "reindeer",
        "rhinoceros",
        "ruff",
        "salamander",
        "salmon",
        "sandpiper",
        "sardine",
        "scorpion",
        "herd",
        "seahorse",
        "shark",
        "sheep",
        "shrew",
        "shrimp",
        "skunk",
        "snail",
        "snake",
        "spider",
        "squid",
        "squirrel",
        "starling",
        "stingray",
        "stinkbug",
        "stork",
        "swallow",
        "swan",
        "tapir",
        "tarsier",
        "termite",
        "tiger",
        "toad",
        "trout",
        "poultry",
        "turtle",
        "vulture",
        "wallaby",
        "walrus",
        "wasp",
        "weasel",
        "whale",
        "wolf",
        "wolverine",
        "wombat",
        "woodcock",
        "woodpecker",
        "worm",
        "wren",
        "yak"
    )
usethis::use_data(eff_word_list, symbols, animals, internal = TRUE, overwrite = TRUE)

})