example-case-when.R

clean_site_name_forbes <- function(site_name, out_name){
  dplyr::case_when(
    str_detect(site_name, "ST") ~ "STP Forbes",
    str_detect(site_name, "Muddy") ~ "STP Forbes",
    str_detect("ST", site_name) ~ "STP Forbes",
    .default = "unmatched"
  )
}

site_name_rules <- function(site_name, site_loc, out_name){
  # wrap all of the name changes into a function
  
  switch(site_loc,
         Forbes = clean_site_name_forbes(site_name),
         Penrith = clean_site_name_penrith(site_name)
         )
  
}