Bert软件包执行代码并复制df

Question

我定义了此函数以选择var

select_var <- function(...)
{
require(tidyverse)
vars <- quos(...)

sous_df <- select(df, !!!vars)
}

为此在我的数据框中选择var

Sub pre_process()
On Error Resume Next
tmp = Application.DisplayAlerts
Application.DisplayAlerts = False
Application.ActiveWorkbook.Sheets("test").Delete
Application.DisplayAlerts = tmp
On Error GoTo 0
Dim x As Variant
'Compute new variable
x = "df$age = ceiling(age_calc(df$DOB, enddate = Sys.Date(), units = 'years', precise = TRUE))"
y = "df$age_car = ceiling(age_calc(df$DOBCAR, enddate = Sys.Date(), units = 'years', precise = TRUE))"
'On entre les variables que l'on souhaite selectionner
Z = "sous_df = select_var(age,age_car,CRM)"
Application.Run "BERT.Exec", x
Application.Run "BERT.Exec", y
Application.Run "BERT.Exec", Z
End Sub

我想执行以Bert / R为单位的Z值（以此来进行机器学习） 然后复制这样的值，我该怎么办？

v = Application.Run("BERT.Call", "function", var1)
Range("A1").Resize(UBound(v, 1), UBound(v, 2)) = v