library(quantmod)
tickers <- c("AAPL", "TSLA")
getSymbols(tickers, env = stocks <- new.env())
L <- eapply(stocks, function(x) Cl(x) + Vo(x) * 1i)
res <- do.call("cbind", L)
## Error in merge.xts(..., all = all, fill = fill, suffixes = suffixes) : 
##   REAL() can only be applied to a 'numeric', not a 'complex'

library(quantmod)
tickers <- c("AAPL", "TSLA")
getSymbols(tickers, env = stocks <- new.env())
L <- eapply(stocks, function(x) Cl(as.zoo(x)) + Vo(as.zoo(x)) * 1i)
res <- as.xts(do.call("cbind", L))