R/get_most_important_facility_npi.R

In utah-osa/hcctools2: OSA's Health Care Compare Tool package

#' Title
#'
#' @param most_important_fac
#' @param facility_str
#' @param facility_npi_str
#'
#' @return
#' @export
#'
#' @examples
get_most_important_facility_npi <- function(most_important_fac, facility_str, facility_npi_str){
  facility_str_list <- facility_str %>% stri_split_regex(", ") %>% unlist()
  facility_str_npi_list <- facility_npi_str %>% stri_split_regex(", ") %>% unlist()

  most_important_index  <- which(facility_str_list == most_important_fac)
  surg_sp_list_clean <- facility_str_npi_list[most_important_index]
}