Populate missing lat/lon in sparse states

[erika-tyagi]

Start with sparse states to avoid overwhelming the map on the website. For example, this yields ~80 facilities to geocode (where the sparse states were semi-arbitrarily chosen by manual inspection):

sparse_states <- c(
    "Washington", "Oregon", "Idaho", "Montana", "Wyoming", "North Dakokta", 
    "South Dakota", "Nebraska", "Kansas", "Oklahoma",  "Nevada", "Utah", "Colorado", 
    "Kansas", "New Mexico", "Arizona", "Minnesota", "Iowa", "Missouri", 
    "Arkansas", "Louisiana", "Maine", "Florida")

behindbarstools::read_scrape_data() %>% 
    filter(is.na(Longitude)) %>% 
    filter(State %in% sparse_states) %>% 
    nrow()

[erika-tyagi]

done with a9ddc6c