discoveryengine: A CADS Prospecting Tool

school_code_synonyms <- function() {
    c(
        "business" = "BU",
        "haas" = "BU",
        "chemistry" = "CH",
        "letters_and_science" = "LS",
        "natural_resources" = "NR",
        "education" = "EC",
        "engineering" = "EN",
        "environmental_design" = "ED",
        "public_policy" = "PP",
        "gspp" = "PP",
        "journalism" = "JR",
        "boalt" = "LW",
        "law" = "LW",
        "optometry" = "OP",
        "public_health" = "PH",
        "social_welfare" = "SW"
    )

}