backup_file <- tempfile(fileext = ".RData")
saveInstruments(backup_file)
tryCatch(
{
rm_instruments(keep.currencies = FALSE)
currency(c("USD", "EUR"))
stock("SPY", "USD", description = "S&P 500 ETF")
stock("DIA", "USD", description = "DJIA ETF")
stock(
c("AA", "AXP", "BA", "BAC", "CAT"),
"USD",
members.of = "DJIA"
)
stock("BMW", "EUR")
find.instrument("ETF")
find.instrument("DJIA")
find.instrument("DJIA", where = "members.of")
find.instrument("USD")
find.instrument("EUR", Symbols = ls_stocks())
},
finally = {
reloadInstruments(backup_file)
unlink(backup_file)
}
)
Run the code above in your browser using DataLab