example_dir <- tempfile("fi-symbol-data-")
dir.create(example_dir)
example_env <- new.env()
example_env$SPY <- xts::xts(
matrix(
1:8,
ncol = 2L,
dimnames = list(
NULL,
c("Close", "Volume")
)
),
order.by = as.Date("2020-01-01") + 0:3
)
tryCatch(
{
saveSymbols.common(
"SPY",
base_dir = example_dir,
env = example_env
)
list.files(
example_dir,
recursive = TRUE
)
},
finally = {
unlink(example_dir, recursive = TRUE)
}
)
Run the code above in your browser using DataLab