# NOT RUN {
## backup .instrument environment
ibak <- as.list(FinancialInstrument:::.instrument)
rm_instruments()
stock(s <- c("SPY", "USO", "LQD"), currency("USD"))
update_instruments.morningstar(s)
instrument.table(s)
## cleanup and restore instrument environment
rm_instruments(keep.currencies=FALSE)
loadInstruments(ibak)
# }
Run the code above in your browser using DataLab