Does not work with functions that misuse non-standard evaluation

[renkun-ken]

> rnorm(100) %>>%
+   arima0(order = c(1,0,1)) %>>%
+   predict(5)
Error in data - as.matrix(xreg) %*% coefs[-(1L:narma)] : 
  non-numeric argument to binary operator

arima0() uses non-standard evaluation in its implementation but seems to misuse it while arima() does not have the problem.

> rnorm(100) %>>%
+   arima(order = c(1,0,1)) %>>%
+   predict(5)
$pred
Time Series:
Start = 101 
End = 105 
Frequency = 1 
[1] 0.04664216 0.04791444 0.04895654 0.04981012 0.05050928

$se
Time Series:
Start = 101 
End = 105 
Frequency = 1 
[1] 1.070690 1.072904 1.074386 1.075380 1.076045