Как извлечь независимые переменные из формулы, используя Rcpp

Question

Я занимаюсь разработкой библиотеки с использованием Rcpp.Мне нужно извлечь независимые переменные из формулы.Я могу сделать это с помощью R, но я не могу сделать с Rcpp.Скажем, у меня есть формула Y ~ X1 + X2 + X3

с помощью RI можно извлечь, используя это.

vars<-function(frml){

  temp1 = strsplit(as.character(frml)[3],"\\+")[[1]]

  return(temp1)
}

Но я хочу сделать это с Rcpp.