tests/testthat/test-old-staticRequest.R

In CharlesCara/DatastreamDSWS2R: Provides a Link Between the 'LSEG Datastream' System and R

##############################################################################################

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)

})