R/stringUtils.R

In apoorvalal/LalRUtils: Lal's utility scripts for personal use

#' fuzzy matches 2 character vectors, and returns most similar pairs
#' @param character vectors a and b
#' @keywords fuzzy match string
#' @export
#' @examples
#' \dontrun{
#' fuzzy_match(keys_A, keys_B)
#' }
fuzzy_match = function(a, b) {
  # calculate a jaccard dissimilarity matrix
  distance = stringdist::stringdistmatrix(a, b, method = 'jaccard')
  # find the closest match for each
  match = apply(distance, 1, which.min)
  values = b[match] # slice b using match index
  df = data.frame(key = as.character(a), values = as.character(values))
  return(df)
}