Использовать RInterface.GetArrayToVBA внутри функции VBA с массивами

Question

Позвольте электронной таблице Excel подключиться к R через RExcel и вы хотите написать функцию VBA, которая вызывает некоторые R-функции.

В таблице Excel у вас есть несколько простых массивов, как следующие:

Код может быть что-то вроде этого:

Function foo(x As Range, y As Range) As Variant 

    RInterface.StartRServer 

    If IsNumeric(x) = True Then 
     RInterface.PutArrayFromVBA "x", x 
    End If 

    If IsNumeric(y) = True Then 
     RInterface.PutArrayFromVBA "y", y 
    End If 

    foo = RInterface.GetArrayToVBA("cbind(x, y, y^x)") 

End Function 

и его очевидна цель заключается в верните матрицу, содержащую cbind(x, y, y^x) в Excel.

Я не могу получить его, я получаю странные результаты, так как немного поправляю код: иногда вывод равен 1, иногда он равен #VALUE! ... он не работает, хотя, и я неспособный понять синтаксис, необходимый в таком случае.

Answer 1

Function foo(x As Range, y As Range) As Variant 

RInterface.StartRServer 
RInterface.PutArrayFromVBA "x", x.Value 'you were missing this .Value' 
RInterface.PutArrayFromVBA "y", y.Value 
foo = RInterface.GetArrayToVBA("cbind(x, y, y^x)") 

End Function 

Я пропускаю ваши проверки ошибок, так как они могут вызывать другие ошибки. Если вы хотите выполнить проверку ошибок, сделайте ошибку при ошибке goto