R/ncaa_hex_select.R

In andrewvanleuven/rleuven: A Collection of R Functions for Personal Use

ncaa_hex_select <- function(university,row_number,secondary=c('TRUE','FALSE')){
  df <- college_hex
  require("tidyverse")
  if(missing(secondary)) {
    secondary=F
  }
  search_key <- str_to_lower(university)
  first_run <- df |>
    filter(str_detect(hex_color,search_key))
  if (secondary==FALSE) return({first_run |>
      filter(str_detect(hex_color,"_1")) |>
      slice(row_number) |>
      pull(value)})
  if (secondary==TRUE) return({first_run |>
      filter(str_detect(hex_color,"_2")) |>
      slice(row_number) |>
      pull(value)})
}