example_dir <- tempfile("fi-currency-")
dir.create(example_dir)
backup_name <- "backup.RData"
backup_path <- file.path(example_dir, backup_name)
saveInstruments(backup_name, dir = example_dir)
tryCatch(
{
rm_instruments(keep.currencies = FALSE)
currency(c("USD", "CAD", "GBP"))
stock(c("CM", "CNQ"), currency = "CAD")
stock(c("BARC", "BET"), currency = "GBP")
stock(c("DIA", "SPY"), currency = "USD")
ls_by_currency("CAD")
ls_by_currency("GBP")
ls_USD()
ls_CAD()
rm_by_currency(currency = "CAD")
},
finally = {
if (file.exists(backup_path)) {
reloadInstruments(
backup_name,
dir = example_dir
)
}
unlink(example_dir, recursive = TRUE)
}
)
Run the code above in your browser using DataLab