purrr - verwenden vollständige Liste-Elemente in der Karte Anruf

Question

die folgende Liste zu haben:

dat <- list(words = c("foo", "bar", "howdy"), 
     pattern=c(foobar="foo|bar", cowboy="howdy"), 
     furterdat=1) 

Ich mag würde folgendes in einem Rohr-Stil Weg

require(purrr) 
require(stringr) 
map(dat$pattern, ~str_detect(dat$words, .)) 

ich denke versucht zu tun, wie

dat %>% map(.$pattern, ~str_detect, string=.$words) 
dat %>% lmap(.$pattern, ~str_detect, string=.$words) 

Aber konnte nicht das Ergebnis, das ich will. Irgendwelche Ideen?

Answer 1

Hier finden Sie eine Option:

library(purrr) 
library(stringr) 

dat <- list(words = c("foo", "bar", "howdy"), 
     pattern=c(foobar="foo|bar", cowboy="howdy"), 
     furterdat=1) 

dat$pattern %>% map(str_detect, dat$words) 

#> $foobar 
#> [1] TRUE TRUE FALSE 
#> 
#> $cowboy 
#> [1] FALSE FALSE TRUE