R Как проверить, является ли ввод определенной функцией

Question

У меня есть функция, которая принимает ввод функции.

 myfunc <- function(FUN){}

Там я хочу проверить, является ли FUN mean, и выполнить еще одну задачу

 myfunc <- function(FUN){
      ``some tasks here``
      if(FUN==mean){``some more task here``} # this FUN==mean is not valid
 }

Однако, похоже, что FUN нельзя сравнивать с этим способом.Есть ли способ проверить, вводится ли определенная функция?

Answer 1

Использует checkmate::assert_function() для дополнительной безопасности.

myfunc <- function(FUN){
  checkmate::assert_function(mean)

  if( identical(FUN, base::mean) ){
    return( TRUE )
  } else {
    return( FALSE )
  }
}

myfunc(mean)    # TRUE
myfunc(meanie)  # FALSE

Этот ТАК вопрос предлагает substitute() и альтернативные решения в несколько более сложныхсценарий.

edit : следовал совету @ spacedman и заменил substitute(FUN) == "mean" внутри условия if, чтобы сделать его более устойчивым (особенно в отношении социопатов, которые называют свою функцию mask base::mean()).