Map the `parse()` function to a vector of text.

parse_text(d)

Arguments

d

Details

Value

References

Author

Note

See also

Examples

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--  or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (d)
{
    d$text <- map2(.x = d$speaker, .y = d$file, .f = parse)
    d %<>% unnest(text)
    d %<>% distinct()
    d %<>% mutate(speakers = speaker, speaker = text %>% str_extract(".* :::") %>%
        str_remove(" :::"))
    d %<>% mutate(text_head = text %>% str_sub(0, 500) %>% str_c("..."))
    return(d)
  }
#> function (d)
#> {
#>     d$text <- map2(.x = d$speaker, .y = d$file, .f = parse)
#>     d %<>% unnest(text)
#>     d %<>% distinct()
#>     d %<>% mutate(speakers = speaker, speaker = text %>% str_extract(".* :::") %>%
#>         str_remove(" :::"))
#>     d %<>% mutate(text_head = text %>% str_sub(0, 500) %>% str_c("..."))
#>     return(d)
#>   }
#> <environment: 0x127151270>