从Stringr包复制弃用的perl（）函数

Question

我正在运行R 3.2.1和stringr 1.0.0，以下内容在我的计算机上按预期工作。目标是提取与磅（130）相关的数字，以下内容在我的机器上完成。

x <- "line 4322: He is now 25 years old, and weights 130lbs"

x %>% 
  str_extract("\\d+(?=lbs)") %>% 
  as.numeric()
[1] 130

同样，这在我的机器上工作正常。但是，在朋友PC上，它没有，并且perl()函数已被弃用。

因此，目标是继续使用stringr包，但添加适当的选项以使其与PCRE兼容。这两个帖子Post 1和Post 2解决了这个问题，但他们使用了base个功能，我希望保留stringr的工作流程。

此代码是一种可能的解决方案，但我不确定它是否会在另一台计算机上按预期工作。

x %>% 
  str_extract(regex("\\d+(?=lbs)", perl = T)) %>% 
  as.numeric()
[1] 130