qdap 包：将零位数字转换为“零”字的错误答案

【问题标题】：qdap package: bug in converting zero digits to "zero" wordsqdap 包：将零位数字转换为“零”字的错误
【发布时间】：2016-12-07 03:45:07
【问题描述】：

之前（作为一个菜鸟）我将它作为一个 R 包错误提交，让我来运行它。我认为以下所有的都很好：

replace_number("123 0 boogie")
[1] "one hundred twenty three boogie"
replace_number("1;1 foo")
[1] "one;one foo"
replace_number("47 bar")
[1] "forty seven bar"
replace_number("0")
"zero"

我认为以下所有内容都很糟糕，因为输出中缺少“零”：

replace_number("1;0 foo")
[1] "one; foo"
replace_number("00 bar")
[1] "bar"
replace_number("0x")
[1] "x"

基本上，我会说replace_number() 无法处理包含数字 0 的字符串（“0”除外）。这是一个真正的错误吗？

【问题讨论】：

您可以提出问题。它可以是功能请求，或者至少是文档中的警告消息。

标签： r numbers text-processing qdap

【解决方案1】：

如果你深入了解replace_number：

 unlist(lapply(lapply(gsub(",([0-9])", "\\1", text.var), function(x) {
        if (!is.na(x) & length(unlist(strsplit(x, "([0-9])", 
            perl = TRUE))) > 1) {
            num_sub(x, num.paste = num.paste)
        }
        else {
            x
        }
    }), function(x) mgsub(0:9, ones, x)))

可以看到问题出现在qdap:::num_sub

qdap:::num_sub("101", num.paste = "combine") ## "onehundredone"
qdap:::num_sub("0", num.paste = "combine")   ## ""

在该函数中挖掘，问题出现在numb2word，它有内部代码

ones <- c("", "one", "two", "three", "four", "five", "six", 
    "seven", "eight", "nine")
names(ones) <- 0:9

将零值转换为空白。如果我自己也遇到这个问题，我会分叉qdap repo，转到replace_number.R，并尝试以向后兼容的方式更改它，以便replace_number 可以采用逻辑参数@987654331 @，它被传递给 numb2word 并做了正确的事情，例如

ones <- c(if (blank_zeros) "" else "zero",
          "one", "two", "three", "four", "five", "six", 
    "seven", "eight", "nine")

与此同时，我已经在qdap issues list 上发布了这篇文章。

【讨论】：