inst/extdata/create_stl_std_streets.R

In slu-openGIS/gateway: Tools for Working with St. Louis Spatial Data

stl_std_streets <- dplyr::tibble(
  st.output = c("Kingshighway", "Dr Martin Luther King", "Dr Martin Luther King", "Dr Martin Luther King",
                "Redd Foxx",
                 "Dr Samuel T Shepard", "Dr Samuel T Shepard", "Dr Samuel T Shepard", "Mount Pleasant",
                 "Morgan Ford", "Lasalle","Lambdin", "Bishop P L Scott"),
  st.input = c("Kingshighway Memorial", "Martin Luther King", "Mlk", "Dr Martin Luther Kin",
               "Red Fox",
                   "Samuel T Shepard", "Samuel Shepard", "Sam Shepard", "Mt Pleasant",
                   "Morganford", "La Salle", "Lamblin", "Bishop Scott")
)

stl_std_streets <- dplyr::arrange(stl_std_streets, st.output)

# save as .RData file for inclusion in stldata package

usethis::use_data(stl_std_streets, overwrite = TRUE)