tests/testthat/test-QueueSummary.R

In RSiteCatalyst: R Client for Adobe Analytics API V1.4

test_that("Validate QueueSummary using legacy credentials", {

  skip_on_cran()

  #Correct [masked] credentials
  SCAuth(Sys.getenv("USER", ""), Sys.getenv("SECRET", ""))

  aa <- QueueSummary(c("zwitchdev", "zwitchjulia"), "2019", c("visits", "pageviews"))

  #Validate returned value is a data.frame
  expect_is(aa, "data.frame")

  bb <- QueueSummary(c("zwitchdev"), "2019", c("visits", "pageviews"))

  #Validate returned value is a data.frame
  expect_is(bb, "data.frame")

  cc <- QueueSummary("zwitchjulia", "2019", c("visits", "pageviews"))

  #Validate returned value is a data.frame
  expect_is(cc, "data.frame")

  dd <- QueueSummary("zwitchjulia", "2019", c("visits"))

  #Validate returned value is a data.frame
  expect_is(dd, "data.frame")

  ee <- QueueSummary("zwitchjulia", "2019", "visits")

  #Validate returned value is a data.frame
  expect_is(ee, "data.frame")

  ff <- QueueSummary("zwitchjulia", "2019-09", "visits")

  #Validate returned value is a data.frame
  expect_is(ff, "data.frame")

  gg <- QueueSummary("zwitchjulia", "2019-10-31", "visits")

  #Validate returned value is a data.frame
  expect_is(gg, "data.frame")

  hh <- QueueSummary("zwitchdev", "", c("pageviews", "visits"), date.from = "2019-01-01",
                     date.to = "2019-12-31")

  #Validate returned value is a data.frame
  expect_is(hh, "data.frame")

  ii <- QueueSummary("zwitchdev", "", c("pageviews", "visits"), date.from = "2019-01-01",
                     date.to = "2019-12-31", enqueueOnly = TRUE)

  #Validate returned value is a numeric
  expect_is(ii, "numeric")

})