tests/testthat/test-queueovertime.R

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

test_that("Validate QueueOvertime using legacy credentials", {

  skip_on_cran()

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

  #Single Metric, No granularity (summary report)
  aa <- QueueOvertime("zwitchdev",
                      "2019-01-01",
                      "2019-12-31",
                      "visits",
                      "")

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

  #Single Metric, Daily Granularity
  bb <- QueueOvertime("zwitchdev",
                      "2019-01-01",
                      "2019-12-31",
                      "visits",
                      "day")

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

  #Single Metric, Week Granularity
  cc <- QueueOvertime("zwitchdev",
                      "2019-01-01",
                      "2019-12-31",
                      "visits",
                      "week")

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

  #Two Metrics, Week Granularity
  dd <- QueueOvertime("zwitchdev",
                      "2019-01-01",
                      "2019-12-31",
                      c("visits", "pageviews"),
                      "week")

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

  #Two Metrics, Month Granularity, Social Visitors
  ee <- QueueOvertime("zwitchdev",
                      "2019-01-01",
                      "2019-12-31",
                      c("visits", "pageviews"),
                      "month",
                      "5433e4e6e4b02df70be4ac63")

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

  #Two Metrics, Day Granularity, Social Visitors, Anomaly Detection
  ff <- QueueOvertime("zwitchdev",
                      "2019-01-01",
                      "2019-12-31",
                      c("visits", "pageviews"),
                      "day",
                      "5433e4e6e4b02df70be4ac63",
                      anomaly.detection = "1")

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

  #Single Metric, No granularity (summary report), 2 segments
  gg <- QueueOvertime("zwitchdev",
                      "2019-01-01",
                      "2019-12-31",
                      "visits",
                      "",
                      segment.id = c("5433e4e6e4b02df70be4ac63","54adfe3de4b02df70be5ea08"))

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

  #Single Metric, Daily Granularity, 2 segments
  hh <- QueueOvertime("zwitchdev",
                      "2019-01-01",
                      "2019-12-31",
                      "visits",
                      "day",
                      segment.id = c("5433e4e6e4b02df70be4ac63","54adfe3de4b02df70be5ea08"))

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

  #Single Metric, Week Granularity, 2 segments
  ii <- QueueOvertime("zwitchdev",
                      "2019-01-01",
                      "2019-12-31",
                      "visits",
                      "week",
                      segment.id = c("5433e4e6e4b02df70be4ac63","54adfe3de4b02df70be5ea08"))

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

  #Two Metrics, Week Granularity, 2 segments
  jj <- QueueOvertime("zwitchdev",
                      "2019-01-01",
                      "2019-12-31",
                      c("visits", "pageviews"),
                      "week",
                      segment.id = c("5433e4e6e4b02df70be4ac63","54adfe3de4b02df70be5ea08"))

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

  #Two Metrics, Month Granularity, 2 segments
  kk <- QueueOvertime("zwitchdev",
                      "2019-01-01",
                      "2019-12-31",
                      c("visits", "pageviews"),
                      "month",
                      segment.id = c("5433e4e6e4b02df70be4ac63","54adfe3de4b02df70be5ea08"))

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

  #Check enqueue only returns report id
  ll <- QueueOvertime("zwitchdev",
                      "2019-01-01",
                      "2019-12-31",
                      "visits",
                      "",
                      enqueueOnly = TRUE)

  #Validate returned value is numeric
  expect_is(ll, "numeric")
})