从 pdf 中提取数据时使用 ifelse 函数

Question

我正在尝试提取 PDF 文档的一部分。有不同的定价车型，当文档使用小写字母而不是大写字母时，我不知道如何提取美元金额。我认为 ifelse 语句可以正常工作，但我在编写它时遇到了困难。数据示例如下：

00 Chevy
00 Ford
00 Subaru

我的代码目前是这样的：

Model <- as.numeric(str_match(f[1], "\$(\d+)\s\Ford|ford"))[[2]])

Answer 1

我们可以使用 (?i)

使其不区分大小写

as.numeric(str_match(v1, "\$(\d+)\s(?i)ford")[,2])
#[1]   NA 2800 1200

如果我们需要 'Ford' 或 'Chevy'

as.numeric(str_match(v1, "\$(\d+)\s(?i)(ford|chevy)")[,2])
#[1] 1500 2800 1200

v1 <- c("00 Chevy", "00 Ford", "00 ford")

Use ifelse function when extracting data from pdfs