Передача отсутствующего аргумента из функции в функцию в R

В вашем примере round0 не отсутствует, для него установлено значение round1, которое не определено (в отличие от отсутствия).

В общем, лучший способ сделать это - использовать значение по умолчанию, в вашем случае FALSE:

foo = function(a, round0 = FALSE) {
    a = a * pi
    if (!round0) round(a)
    else a
}

bar = function(b) {
    round1 <- FALSE
    if (b > 10) round1=TRUE
    foo(b, round1)
}

или где значение по умолчанию не может быть легко выражено в списке параметров:

foo = function(a, round0 = NULL) {
    a = a * pi
    if(!is.null(round0)) round(a)
    else a
}

bar = function(b) {
    round1 <- NULL
    if (b > 10) round1=TRUE
    foo(b, round1)
}

Обратите внимание, что в обоих случаях вам необходимо вручную установить параметр как значение по умолчанию в вызывающей функции.

Вы также можете вызвать вашу foo функцию с аргументом или без него, если необходимо, в вашем if выражении:

bar = function(b) {
    if (b > 10) foo(b, TRUE) else foo(b)
}

Альтернативный подход, показывающий, как сгенерировать отсутствующее значение, показан в ответе @ moody_mudskipper.

Я недавно столкнулся с подобной проблемой и хотел решить ее в общих чертах. Я думаю, что это можно сделать, как показано в определении функции g() ниже:

f <- function(a = 5, b = 3, c = 2, d = 7) {
  if (missing(a)) {print("a is missing.")}
  if (missing(b)) {print("b is missing.")}
  if (missing(c)) {print("c is missing.")}
  if (missing(d)) {print("d is missing.")}

  cat(a, b, c, d)
}

g <- function(a = 1, b = 1, c = 1, d = 1) {
  args <- as.list(match.call())
  args[[1]] <- NULL # remove first list element, it's the function call
  do.call(f, args, envir = parent.frame())
}

Вот что мы получаем при вызове g() с разными наборами аргументов:

> g()
[1] "a is missing."
[1] "b is missing."
[1] "c is missing."
[1] "d is missing."
5 3 2 7

> g(a = 3)
[1] "b is missing."
[1] "c is missing."
[1] "d is missing."
3 3 2 7

> g(b = 10, c = 10)
[1] "a is missing."
[1] "d is missing."
5 10 10 7

Вы можете добавить или удалить из списка args, если вы не хотите передавать все аргументы следующей функции или хотите добавить некоторые. В качестве примера рассмотрим следующую функцию g(), которая делает это обычным образом:

g <- function(a = 1, b = 1, c = 1, x = 1, y = 1, z = 1) {
  f_args <- c("a", "b", "c") # arguments we want to hand off to function f

  # obtain the list of arguments provided
  args <- as.list(match.call())
  # remove first list element, it's the function call
  args[[1]] <- NULL
  # remove the arguments that are not listed in f_args
  args <- args[na.omit(match(f_args, names(args)))]

  # now add argument d, we always want it to be 0:
  args <- c(args, list(d = 0))
  do.call(f, args, envir = parent.frame())
}

Вот что мы получаем при вызове g() с разными наборами аргументов:

> g()
[1] "a is missing."
[1] "b is missing."
[1] "c is missing."
5 3 2 0

> g(a = 3)
[1] "b is missing."
[1] "c is missing."
3 3 2 0

> g(b = 10, c = 10)
[1] "a is missing."
5 10 10 0

См. этот ответ для получения дополнительной информации о do.call().

Вы можете создать недостающий объект, используя substitute() без аргументов.

В вашем случае мы могли бы сделать round1 отсутствующим объектом в предложении else:

foo = function(a, round0) {
  a = a * pi
  if(!missing(round0)) round(a)
  else a
}

bar = function(b) {
  if(b > 10) round1=T else round1 <- substitute()
  foo(b, round1)
}

bar(9)
#> [1] 28.27433

^{Создано 24.10.2019 с помощью пакета REPEX (v0.3.0)}

rlang также предоставляет функцию missing_arg(), которая заставляет аргумент отсутствовать.

foo = function(a, round0) {
  a = a * pi
  if(!missing(round0)) round(a)
  else a
}

bar = function(b) {
  if(b > 10) round1 <- TRUE else round1 <- rlang::missing_arg()
  foo(b, round1)
}

foo(9)
#> [1] 28.27433
bar(9)
#> [1] 28.27433

^{Создано 02.12.2020 с помощью пакета REPEX (v0.3.0)}