R match.fun не видит функцию из импортированного пакета

Question

Я импортировал пакет под названием «stabledist». Она включает в себя функцию "rstable"

Когда я это сделать

my_fun <- function(function_from_library) 
{ 
    function_from_library <- match.fun(function_from_library) 
    print(some_data <- function_from_library) 
} 

my_fun (5, rstable(5, alpha = 1.7, beta = 0, gamma = 1.0, delta = 1.0)) 

я получаю ошибку:»Ошибка в match.fun (some_distr):«rstable (5, альфа = 1,7, бета = 0, гамма = 1, delta = 1) 'не является функцией, символом или символом "

Все работает нормально, whnn match.fun удаляется. Есть ли все-таки, чтобы импортировать библиотеку, чтобы она могла быть видна другим? Или я могу просто пропустить match.fun?

Answer 1

Это, как я реализовал свое предложение:

library(stabledist) 
my_fun <- function(function_from_library, ...) 
{ 
    function_from_library <- match.fun(function_from_library) 
    print(some_data <- function_from_library(...)) 
} 

my_fun (rstable, 5, alpha = 1.7, beta = 0, gamma = 1.0, delta = 1.0) 
#[1] 1.4600308688 -0.0004999279 1.9301805374 -1.3276383194 0.9137183709 

Это требует также знать, как использовать многоточие-механизм для передачи списков произвольной длины функций, что дополнительно отметил Роланд. Механизм печати фактически не создает вектор данных значений. Для этого вам необходимо назначить ("<-") результат «вне» тела функции (и поэтому вызов print() также не нужен).

library(stabledist) 
my_fun <- function(function_from_library, ...) 
{ 
    function_from_library <- match.fun(function_from_library) 
    function_from_library(...)  } 

some_data <- my_fun (rstable, 5, alpha = 1.7, beta = 0, gamma = 1.0, delta = 1.0) 
some_data 
# 5 random values are printed at console.