tests/testthat/test-queueranked.R

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

test_that("Validate QueueRanked using legacy credentials", {

  skip_on_cran()

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

  #Top 50 pages
  aa <- QueueRanked("zwitchdev",
                    "2019-01-01",
                    "2019-12-31",
                    "pageviews",
                    "page",
                    top = "50",
                    start = "1")

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

  #Next 50 pages
  bb <- QueueRanked("zwitchdev",
                    "2019-01-01",
                    "2019-12-31",
                    "pageviews",
                    "page",
                    top = "50",
                    start = "51")

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

  #Two specific pages
  #Visits and pageviews metric
  cc <- QueueRanked("zwitchdev",
                    "2019-01-01",
                    "2019-12-31",
                    c("visits", "pageviews"),
                    "page",
                    selected = c("https://randyzwitch.com/r-amazon-ec2", "https://randyzwitch.com/julia-import-data")
  )

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

  #Two specific pages - "Home Page" and "Search Results"
  #Visits and pageviews metric, Social Visitors, Current Data
  dd <- QueueRanked("zwitchdev",
                    "2019-01-01",
                    "2019-12-31",
                    c("visits", "pageviews"),
                    "page",
                    selected = c("https://randyzwitch.com/creating-stacked-bar-chart-seaborn", "https://randyzwitch.com"),
                    segment.id = "5433e4e6e4b02df70be4ac63",
                    data.current = "1")

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

  ee <- QueueRanked("zwitchdev",
                         date.from = "2019-01-01",
                         date.to = "2019-12-31",
                         metrics = "pageviews",
                         elements = c("page")
  )


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

  ff <- QueueRanked("zwitchdev",
                         date.from = "2019-01-01",
                         date.to = "2019-12-31",
                         metrics = "pageviews",
                         elements = c("page", "browser")
  )


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

  #Top 50 pages, 2 segments
  gg <- QueueRanked("zwitchdev",
                    "2019-01-01",
                    "2019-12-31",
                    "pageviews",
                    "page",
                    top = "50",
                    start = "1",
                    segment.id = c("5433e4e6e4b02df70be4ac63","54adfe3de4b02df70be5ea08"))

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

  #Next pages, 2 segments
  hh <- QueueRanked("zwitchdev",
                    "2019-01-01",
                    "2019-12-31",
                    "pageviews",
                    "page",
                    top = "2",
                    start = "3",
                    segment.id = c("5433e4e6e4b02df70be4ac63","54adfe3de4b02df70be5ea08"))

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

  #Two specific pages, 2 segments
  #Visits and pageviews metric
  ii <- QueueRanked("zwitchdev",
                    "2019-01-01",
                    "2019-12-31",
                    c("visits", "pageviews"),
                    "page",
                    selected = c("https://randyzwitch.com/creating-stacked-bar-chart-seaborn", "https://randyzwitch.com"),
                    segment.id = c("5433e4e6e4b02df70be4ac63","54adfe3de4b02df70be5ea08")
  )

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

  #Two specific pages - "Home Page" and "Search Results"
  #Visits and pageviews metric, 2 segments, Current Data
  jj <- QueueRanked("zwitchdev",
                    "2019-01-01",
                    "2019-12-31",
                    c("visits", "pageviews"),
                    "page",
                    selected = c("https://randyzwitch.com/creating-stacked-bar-chart-seaborn", "https://randyzwitch.com"),
                    segment.id = c("5433e4e6e4b02df70be4ac63","54adfe3de4b02df70be5ea08"),
                    data.current = "1")

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

  # 2 segments added to ee test
  kk <- QueueRanked("zwitchdev",
                         date.from = "2019-01-01",
                         date.to = "2019-12-31",
                         metrics = "pageviews",
                         elements = c("page", "browser") ,
                         segment.id = c("5433e4e6e4b02df70be4ac63","54adfe3de4b02df70be5ea08")
  )


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

  #2 segments added to ff
  ll <- QueueRanked("zwitchdev",
                         date.from = "2019-01-01",
                         date.to = "2019-12-31",
                         metrics = "pageviews",
                         elements = c("page", "browser") ,
                         segment.id = c("5433e4e6e4b02df70be4ac63","54adfe3de4b02df70be5ea08")
  )


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

  # test enqueueOnly returns valid report id
  mm <- QueueRanked("zwitchdev",
                         date.from = "2019-01-01",
                         date.to = "2019-12-31",
                         metrics = "pageviews",
                         elements = c("page", "browser") ,
                         segment.id = c("5433e4e6e4b02df70be4ac63","54adfe3de4b02df70be5ea08"),
                         enqueueOnly = TRUE
  )


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

})