Skip to content

Commit

Permalink
updating locations for diets
Browse files Browse the repository at this point in the history
  • Loading branch information
@smwoodman
smwoodman committed Jul 23, 2024
1 parent 77a3862 commit e4cef80
Showing 1 changed file with 24 additions and 24 deletions.
48 changes: 24 additions & 24 deletions R/mutate_location.R
View file
Original file line number Diff line number Diff line change
Expand Up @@ -43,49 +43,49 @@ mutate_location <- function(x) {
loc_lower %in% tolower(c("Playa Alcazar", "Alcazor", "Alcazar flats", "Planicie Alcazar", "PAlcazar", "P Alcazar")) ~ "Alcazar",
loc_lower %in% tolower(c("Angosta", "Pl Angosta", "P Angosta")) ~ "Angosta",
# loc_lower %in% tolower(c("Antarctica", "Playa Antarctica", "Pl Antarctica", "Antártico", "P Antarctico", " P Antarctica", "P Antarctica", "Antartica", "Antarctico")) ~ "Antartico",
loc_lower %in% tolower(c("Antarctica", "Playa Antarctica", "Pl Antarctica", paste0("Ant", "\\u00e1", "rtico"), "P Antarctico", " P Antarctica", "P Antarctica", "Antartica", "Antarctico")) ~ "Antartico",
loc_lower %in% tolower(c("Antarctica", "Playa Antarctica", "Pl Antarctica", paste0("Ant", "\\u00e1", "rtico"), "P Antarctico", " P Antarctica", "P Antarctica", "Antartica", "Antarctico", "PAntarctica")) ~ "Antartico",

loc_lower %in% tolower(c(" Amarya", "Amarya", "behind Elmira", "Elmira", "Aymara F")) ~ "Aymara",
loc_lower %in% tolower(c("P Bahamonde", "Bahamunde", "B'monde/La Cav", "B Mon", "Bajamonde", "Baha Monde", "B'monde")) ~ "Bahamonde",

loc_lower %in% tolower(c("Ballena hill", "Ballena hills", "Ballena H")) ~ "Ballena Hill",
loc_lower %in% tolower(c("Ballena", "Ballena N", "Ballena THrte", "B Nor", "Ballena Norte", "BNorte/Sur", "B Norte", "BNorte", "Plan Ball Norte", "Ballena C", "BN")) ~ "Ballena Norte",
loc_lower %in% tolower(c("Ballena flats", "Ball Fl", "Ballena Fl", "B Norte flats", "BNorte Flats", "Ballena N Flats", "Ballena Centra Flats", "Flats Ballenas", "Flats Ballena Norte", "Planicie Ballena norte", "Ballena F", "Ballena W", "Ballena")) ~ "Ballena Flats",
loc_lower %in% tolower(c("Ballena flats", "Ball Fl", "Ballena Fl", "B Norte flats", "BNorte Flats", "Ballena N Flats", "Ballena Centra Flats", "Flats Ballenas", "Flats Ballena Norte", "Planicie Ballena norte", "Ballena F", "Ballena W", "Ballena", "B Sur Flat")) ~ "Ballena Flats",
loc_lower %in% tolower(c("Ballena S", "Ballend S", "Ball S", "BSur", "BSur ridge", "B Sur", "ballena sur", "Pla BallSur", "Planicie Ballena Sur", "Ballend/Chag")) ~ "Ballena Sur",
loc_lower %in% tolower(c("Plan Ball Sur", "B Sur flats", "Plan Ballena Sur", "BSur flats")) ~ "Ballena Sur Flats",

loc_lower %in% tolower(c("Cach", "Cach slope", "Cacheros", "Cacharros", "Cach/Chung", "Cachomos", "Mad/Cach")) ~ "Cachorros",
loc_lower %in% tolower(c("Cach (E)", "Cach(E)", "Cach-E", "Cach E", "Cach C/E", "Cachorros E", "E Cach")) ~ "Cachorros East",
loc_lower %in% tolower(c("Cach-C", "Cach C")) ~ "Cachorros Central",
loc_lower %in% tolower(c("Cach-W", "Cach W")) ~ "Cachorros West",
loc_lower %in% tolower(c("Cach", "Cach slope", "Cacheros", "Cacharros", "Cach/Chung", "Cachomos", "Mad/Cach", "Cad/Mad pt", "Cach-hill")) ~ "Cachorros",
loc_lower %in% tolower(c("Cach (E)", "Cach(E)", "Cach-E", "Cach E", "Cach C/E", "Cachorros E", "E Cach", "Cache")) ~ "Cachorros East",
loc_lower %in% tolower(c("Cach-C", "Cach C", "Cachc")) ~ "Cachorros Central",
loc_lower %in% tolower(c("Cach-W", "Cach W", "CachW")) ~ "Cachorros West",
loc_lower %in% tolower(c("Cach-flats", "Cach flats", "Cach F", "Planicie Cachorro", "W Cach Flats", "W Cach Flats", "Flats Cachorros", "Cacharros Flats")) ~ "Cachorros Flats",
loc_lower %in% tolower(c("Cach-ridge", "Cach C ridge", "Cach ridge", "Cach Ridge", "Cach R", "Cacheros Ridge")) ~ "Cachorros Ridge",
loc_lower %in% tolower(c("Cach H", "Cach Hill")) ~ "Cachorros Hill",

loc_lower %in% tolower(c("Chugungo", "Chango", "Chung high", "Chung", "Chun", "Chungungu", "Chungunga", "Chung/Ballena")) ~ "Chungungo",
loc_lower %in% tolower(c("Chugungo", "Chungung", "Chango", "Chung high", "Chung", "Chun", "Chungungu", "Chungunga", "Chung/Ballena", "Chu", "Chung-PTT")) ~ "Chungungo",
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")) ~ "Chungungo Central",
loc_lower %in% tolower(c("Chungungo W", "Chung W", "Chung-W")) ~ "Chungungo West",
loc_lower %in% tolower(c("Chung Flats", "Chung Flat", "Chun Flats", "Chung Fl", "Chung flat C", "Plan Chungungo", "Chung F", "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")) ~ "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")) ~ "Chungungo East Flats",
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 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",
loc_lower %in% tolower(c("Chung-hill", "Chung W hill", "Chung F C hill", "Chung F hill", "Chung cliff", "Cerro Chungungo", "Chung hill", "Chungungo hill", "Cerro Chung", "Co Chungungo", "Chung H")) ~ "Chungungo Hill",

loc_lower %in% tolower(c("CopiHue High", "Copi Hue")) ~ "Copihue",
loc_lower %in% tolower(c("Cop", "Copi", "Copi high", "Copi C Knoll", "Copi S", "Plan Copi-Maderas")) ~ "Copi",
loc_lower %in% tolower(c("CopiHue High", "Copi Hue", "copihue")) ~ "Copihue",
loc_lower %in% tolower(c("Cop", "Copi", "Copi high", "Copi C Knoll", "Copi S", "Copi-PTT")) ~ "Copi",
loc_lower %in% tolower(c("Copi-E", "Copi E")) ~ "Copi East",
loc_lower %in% tolower(c("Copi-C", "Copi C", "Copi C/E", "Copi C high", "Copi-C/W")) ~ "Copi Central",
loc_lower %in% tolower(c("Cop-W", "Copi-W", "Copi W")) ~ "Copi West",
loc_lower %in% tolower(c("Cop Flats", "Copi flats", "Copi Fl", "Copi F", "Copi Flat", "Copi-flats", "Copihue slope", "Plan Copihue", "Plan Vero", "Planicie Copihue", "Flats Copihue", "Flats Copihue", "Plan Copi", "Cop F", "Copihue Flats", "Copihue plano")) ~ "Copi Flats",
loc_lower %in% tolower(c("Copi-C", "Copi C", "Copi C/E", "Copi C high", "Copi-C/W", "Copic")) ~ "Copi Central",
loc_lower %in% tolower(c("Cop-W", "Copi-W", "Copi W", "CopiW")) ~ "Copi West",
loc_lower %in% tolower(c("Cop Flats", "Copi flats", "Copi Fl", "Copi F", "Copi Flat", "Copi-flats", "Copihue slope", "Plan Copihue", "Plan Copi-Maderas", "Plan Vero", "Planicie Copihue", "Flats Copihue", "Flats Copihue", "Plan Copi", "Cop F", "Copihue Flats", "Copihue plano", "copiflats", "cachi-flat", "chachi-flat")) ~ "Copi Flats",
loc_lower %in% tolower(c("Copi Flats E", "Copi E Flats")) ~ "Copi Flats East",
loc_lower %in% tolower(c("Copi Flats W", "Copi W Flats")) ~ "Copi Flats West",
loc_lower %in% tolower(c("Copi hill", "copi-hill", "Copi H", "Hue H")) ~ "Copi Hill",
loc_lower %in% tolower(c("Copi Saddle", "Copi ridge", "Copi R", "Hue Ridge")) ~ "Copi Ridge",
loc_lower %in% tolower(c("Copi Saddle", "Copi ridge", "Copi R", "Hue Ridge", "Copi C Ridge", "Copi W ridge", "Copi WR")) ~ "Copi Ridge",

loc_lower %in% tolower(c("Co Delfin")) ~ "Delfin",

loc_lower %in% tolower(c("Hue", "Hue wE")) ~ "Hue",
loc_lower %in% tolower(c("Hue", "Hue wE", "Hue-PTT")) ~ "Hue",
loc_lower %in% tolower(c("Hue-E", "Hue E")) ~ "Hue East",
loc_lower %in% tolower(c("Hue-C", "Hue C", "Hue C high", "Hue C/W", "Huey C")) ~ "Hue Central",
loc_lower %in% tolower(c("Hue-W", "Hue W")) ~ "Hue West",
Expand All @@ -97,7 +97,7 @@ mutate_location <- function(x) {
loc_lower %in% tolower(c("Monument")) ~ "Gaviota",
loc_lower %in% tolower(c("Punta Haydee")) ~ "Punta Haydee",
loc_lower %in% tolower(c("taco", "Cerro Taco", "Hill 2")) ~ "Huillin",
loc_lower %in% tolower(c("Broken Arrow")) ~ "Cerro Parmenio",
loc_lower %in% tolower(c("Broken Arrow", "B Arrow")) ~ "Cerro Parmenio",
loc_lower %in% tolower(c("Abismo", "ALC abismo")) ~ "Cerro El Abismo",
loc_lower %in% tolower(c("Acantilado Damero")) ~ "Damero",
loc_lower %in% tolower(c("E Diaguita")) ~ "Diaguita",
Expand All @@ -111,12 +111,12 @@ mutate_location <- function(x) {
loc_lower %in% tolower(c("Lob flats", "Loberia F", "Loberia flats", "Loberia flats S", "lobe ria valley", "Loberia Fl")) ~ "Loberia Flats",
loc_lower %in% tolower(c("Lobe ria H", "Lob H")) ~ "Loberia Hill",

loc_lower %in% tolower(c("Mad", "Mad S", "Mad N", "Mad high", "Mad (M)", "Mad-A", "Mad slope", "Md Der?")) ~ "Maderas",
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")) ~ "Maderas Central",
loc_lower %in% tolower(c("Mad (W)", "Mad-w", "Mad w", "Mad(W)")) ~ "Maderas West",
loc_lower %in% tolower(c("Mad Flats", "Mad F", "Mad flat", "Mad-F", "mad-flats", "above Maderas", "Maderas flat", "Maderas High")) ~ "Maderas Flats",
loc_lower %in% tolower(c("Mad-r", "Mad R", "Mad Ridge", "Maderas Rdg", "HD R?", "Mad B")) ~ "Maderas Ridge",
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 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 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",
Expand Down

0 comments on commit e4cef80

Please sign in to comment.