more locations

us-amlr · Jul 23, 2024 · c149d49 · c149d49
1 parent e4cef80
commit c149d49
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/R/mutate_location.R b/R/mutate_location.R
@@ -66,7 +66,7 @@ mutate_location <- function(x) {
                loc_lower %in% tolower(c("E Chungungo", "Chung E high", "Chung (E)", "Chung(E)", "Chung-E", "Chung E", "Chungungo east", "Chin E", "Chagunc? Chag E?")) ~ "Chungungo East",
                loc_lower %in% tolower(c("Chung-C", "Chu C", " Chung C/W", "Chung C", "Chungungo C", "Chun C", "ChungC")) ~ "Chungungo Central",
                loc_lower %in% tolower(c("Chungungo W", "Chung W", "Chung-W", "Chu W", "ChungW")) ~ "Chungungo West",
-               loc_lower %in% tolower(c("Chung Flats", "Chung Flat", "Chun Flats", "Chung Fl", "Chung flat C", "Plan Chungungo", "Chung F", "Chu Flat", "Chu FC", "Chung F C", "Chung C flat", "Chungunga Flat", "Chung Fts C", "chungungo flats", "chung-flat", "Flats Chungungo", "Flats Chungungo", "Planicie Chungungo", "Chung flats C", "Ch Flats", "Behind Chung-flats", "Chung-flats")) ~ "Chungungo Flats",
+               loc_lower %in% tolower(c("Chung Flats", "Chung Flat", "Chun Flats", "Chung Fl", "Chung flat C", "Plan Chungungo", "Chung F", "Chu Flat", "Chu FC", "Chung F C", "Chung C flat", "Chungunga Flat", "Chung Fts C", "chungungo flats", "chung-flat", "Flats Chungungo", "Flats Chungungo", "Planicie Chungungo", "Chung flats C", "Ch Flats", "Behind Chung-flats", "Chung-flats", "Chugungo F")) ~ "Chungungo Flats",
                loc_lower %in% tolower(c("Chung Flats E", "Chu F E", "Chung F E", "Chung E Flats", "Chung flat E", "Chung E flat", "Chu FE")) ~ "Chungungo East Flats",
                loc_lower %in% tolower(c("Chung Flats W", "Chung flat W", "Chung f W", "Chung W flat")) ~ "Chungungo West Flats",
                loc_lower %in% tolower(c("Chung R", "Chung W ridge", "Chung ridge")) ~ "Chungungo Ridge",
@@ -114,9 +114,9 @@ mutate_location <- function(x) {
                loc_lower %in% tolower(c("Mad", "Mad S", "Mad N", "Mad high", "Mad (M)", "Mad-A", "Mad slope", "Md Der?", "maderas")) ~ "Maderas",
                loc_lower %in% tolower(c("Mad (E)", "Mad(E)", "Mad-E", "Mad E high", "Mad E", "Maderas E")) ~ "Maderas East",
                loc_lower %in% tolower(c("Mad (C)", "Mad(C)", "Mad-C", "Mad C", "Mad C/W", "Mad E/C", "MadC")) ~ "Maderas Central",
-               loc_lower %in% tolower(c("Mad (W)", "Mad-w", "Mad w", "Mad(W)", "Madw")) ~ "Maderas West",
+               loc_lower %in% tolower(c("Mad (W)", "Mad-w", "Mad w", "Mad(W)", "Madw", "Mad SW")) ~ "Maderas West",
                loc_lower %in% tolower(c("Mad Flats", "Mad F", "Mad flat", "Mad-F", "mad-flats", "above Maderas", "Maderas flat", "Maderas High", "mad-flat")) ~ "Maderas Flats",
-               loc_lower %in% tolower(c("Mad-r", "Mad R", "Mad Ridge", "Maderas Rdg", "HD R?", "Mad B", "madridge", "Mad-ridge")) ~ "Maderas Ridge",
+               loc_lower %in% tolower(c("Mad-r", "Mad R", "Mad Ridge", "Maderas Rdg", "HD R?", "Mad B", "madridge", "Mad-ridge", "MadR")) ~ "Maderas Ridge",
                loc_lower %in% tolower(c("Mad Saddle")) ~ "Maderas Saddle",
 
                # loc_lower %in% tolower(c("Módulo", "PMod", "Modelo", "landing beach", "Mod", "modulo", "Pl El Modulo", "El Módulo", "Playa Modulo", "Above int'l highway", "International highway", "PMod", "Highway",