Nothing
context("getSymbols.FI")
from <- as.Date('2012-01-01')
to <- from + 9
tmpenv <- new.env()
tmpenv$BID <- xts(1:10, as.Date(from:to))
tmpdir <- file.path(tempdir(), "BID")
dir.create(tmpdir, showWarnings=FALSE)
saveSymbols.days("BID", tmpdir, extension="RData", env=tmpenv)
# make sure getSymbols.FI works if the directory has the same name as the Symbol
test_that("getSymbols.FI base_dir=Symbol", {
expect_identical(NROW(getSymbols("BID", src="FI", dir=tmpdir,
extension="RData", auto.assign=FALSE,
from=from, to=to, days_to_omit=NULL,
verbose=FALSE)), 10L)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.