# NOT RUN {
# requires API key
Sys.setenv(`_R_S3_METHOD_REGISTRATION_NOTE_OVERWRITES_`="false") # suppress load noise
data <- time_series("SPY", "5min", outputsize=500, as="xts")
if (requireNamespace("quantmod", quietly=TRUE))
suppressMessages(library(quantmod)) # suppress some noise
chartSeries(data, name=attr(data, "symbol"), theme="white") # convenient plot for OHLCV
str(data) # compact view of data and meta data
cadusd <- time_series(sym="CAD/USD", interval="1week", outputsize=52.25*20, as="xts")
chart_Series(cadusd, name=attr(data, "symbol"))
gme <- time_series("GME", "1min", start_date="2021-01-25T09:30:00",
end_date="2021-02-04T16:00:00", as="xts")
chart_Series(gme, name=paste0(attr(gme, "symbol"), "/", attr(gme, "exchange")))
res <- time_series(c("SPY", "QQQ", "IWM", "EEM"), outputsize=300, as="xts")
op <- par(mfrow=c(2,2))
sapply(res, function(x) quantmod::chart_Series(x, name=attr(x, "symbol")))
par(op)
# }
Run the code above in your browser using DataLab