inst/tinytest/test_getSymbols.FI.R

In FinancialInstrument: Financial Instrument Modeling Infrastructure

# 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
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)