如何在purrr中获得与参考词最接近的词

library(purrr)
library(stringdist)

get_closest_word <- function(reference_word, word_list) {
  distances <- map(word_list, ~ str_dist(reference_word, .))
  closest_index <- which.min(distances)
  closest_word <- word_list[closest_index]
  return(closest_word)
}

# 示例用法
reference_word <- "apple"
word_list <- c("banana", "orange", "grape", "pineapple")

closest_word <- get_closest_word(reference_word, word_list)
print(closest_word)