R，没有默认值的参数丢失

Question

我构建了一个函数，当其中一个参数在代码中被硬编码时它可以工作，但是一旦我将它包含在参数列表中，我就会得到一个错误......我意识到这很简单，但却难倒我！

## load necessary libraries
library(gsubfn)

## number of days
days <- 5

AdDayFun <- function (inarray) {
    gsubfn("^\\D*\\d+\\D*\\K(\\d+)",
           ~ ifelse(as.numeric(x) < 5,
                    sprintf("%02d",as.numeric(x)+1),
                    "00"),
           inarray,
           perl=TRUE
           )
}

## initial population 
pop <- matrix(c("a-00-04","a-00-00","a-00-00", "dead", "a-00-00"), nrow =1)
pop




pop <- rbind(pop, AdDayFun(pop[nrow(pop), ]))
pop

这一切都很好，直到我将函数更改为需要两个参数，然后出现错误？

AdDayFun <- function (inarray, nummax) {
    gsubfn("^\\D*\\d+\\D*\\K(\\d+)",
           ~ ifelse(as.numeric(x) < nummax,
                    sprintf("%02d",as.numeric(x)+1),
                    "00"),
           inarray,
           perl=TRUE
           )
}

(AdDayFun(pop[nrow(pop), ], 7))

这样的错误： ifelse(as.numeric(x)

Answer 1

这里很容易混淆。您正在编写一个函数AdDayFun，它包装了另一个函数gsubfn，它本身将一个未命名的函数或公式作为参数。

我们希望能够将nummax 作为参数传递给未命名的函数。但是，似乎没有用于将任意参数传递给此函数的内置方法。

但是，由于您将 gsubfn 包装在自己的函数中，因此有一种解决方法，即为未命名函数预定义第二个参数，其中 nummax 作为默认值：

AdDayFun <- function (inarray, nummax) 
{
  f <- function(x, y = nummax)
  {
    ifelse(as.numeric(x) < y, sprintf("%02d", as.numeric(x) + 1), "00")
  }

  gsubfn("^\\D*\\d+\\D*\\K(\\d+)", f, inarray, perl = TRUE)
}

结果如下：

a <- AdDayFun(pop[nrow(pop),], 5)
a
#> [1] "a-00-05" "a-00-01" "a-00-01" "dead"    "a-00-01"

a <- AdDayFun(a, 7)
a
#> [1] "a-00-06" "a-00-02" "a-00-02" "dead"    "a-00-02"

a <- AdDayFun(a, 5)
a
#> [1] "a-00-00" "a-00-03" "a-00-03" "dead"    "a-00-03"