parallel extract info from user-agent string

script.R

library(feather)
library(dplyr)
library(purrr)
library(furrr)
library(uaparserjs)

raw <- feather::read_feather("raw.feather") %>% 
    `[[`('ua') %>% 
    purrr::discard(is.na) %>% 
    unique()

future::plan(strategy = "multiprocess")

print(Sys.time())
res = furrr::future_map(raw, ua_parse) %>% bind_rows()
print(Sys.time())