Блог

У меня есть список символьных векторов, и я хочу сохранить только те элементы векторов, которые содержат определенное регулярное выражение. К сожалению, я не смог убедить purrr передать векторы в stringr. Общая цель моих усилий — извлечь предложения с регулярным выражением из текста в одном столбце tibble и объединить их в другой столбец. Есть ли у кого-нибудь решение purrre tidyverse? Спасибо за любую помощь 🙂

Этот прототип решения работает 🙂 Не уверен, почему это не сработало в первый раз, хотя 😉 По-прежнему буду рад вашим комментариям.

 # Prototype solution ----
library(purrr)
library(stringr)
pr_pattern <- "rr" 
pr_db <- list(
  A = c("Apples and oranges.", "Oranges and cherries.", "Nuts and grapes."), 
  B = c("Oranges and apples.", "Cherries and oranges.", "Grapes and nuts.")
  )
pr_res <- map(pr_db, ~ str_subset(.x, pr_pattern))