Как определить типы аргументов для R-функций?

Question

Я пишу функцию R, и я хочу убедиться, что аргумент моей функции R имеет определенный класс (например, «матрица»).

Каков наилучший способ для этого?

Скажем, у меня есть функция «Foo», который вычисляет обратную матрицу:

foo <- function(x) 
{ 
    # I want to make sure x is of type "matrix" 
    solve(x) 
} 

Как я могу сказать - как вы могли бы в C - function(matrix x) для обозначения того, что "x должен быть типа matrix, и если это не так, то верните ошибку "?

Answer 1

Вы можете проверить, что это матрица с is.matrix или же преобразовать его с as.matrix после того, как параметр передается:

foo <- function(x) 
{ 
    if(!is.matrix(x)) stop("x must be a matrix") 
    # I want to make sure x is of type "matrix" 
    solve(x) 
} 

Answer 2

Просто для полноты: помимо

is.matrix(foo) 

вы можно также проверить

class(foo) == "matrix" 

, который также работает в нестандартном, которые не имеют is.foo() функции.

Answer 3

stopifnot(is.matrix(x))