Nothing
##############################################################################################
context("classConstructor.R : test of staticRequest function")
##############################################################################################
test_that("test of simple snapshot request for price datatype with relative dates", {
if (Sys.getenv("DatastreamUsername") == "") {
skip("Username not available")
}
skip_on_cran()
dwei <- getDataStream(User = Sys.getenv("DatastreamUsername"), Pass = Sys.getenv("DatastreamPassword"))
myData <- staticRequest(dwei = dwei,
DSCode = c("ABF","RIO","WPP"),
Expression = "P",
endDate = Sys.Date(),
verbose = TRUE)
expect_is(myData, "data.frame")
expect_is(myData[1,2], "numeric")
expect_equal(nrow(myData), 3)
expect_equal(ncol(myData), 2)
})
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.