test_that("Validate QueueTrended using legacy credentials", {
skip_on_cran()
#Correct [masked] credentials
SCAuth(Sys.getenv("USER", ""), Sys.getenv("SECRET", ""))
#Top 10 pages by pageviews, daily
aa <- QueueTrended("zwitchdev",
"2019-09-01",
"2019-09-30",
date.granularity = "day",
metrics = "pageviews",
elements = "page",
top = "10")
#Validate returned value is a data.frame
expect_is(aa, "data.frame")
#Top 10 pages by pageviews, daily
#Starting with 11
bb <- QueueTrended("zwitchdev",
"2019-09-01",
"2019-09-30",
date.granularity = "day",
metrics = "pageviews",
elements = "page",
top = 10,
start = 11)
#Validate returned value is a data.frame
expect_is(bb, "data.frame")
#Top 7 pages by visits, weekly
cc <- QueueTrended("zwitchdev",
"2019-09-01",
"2019-09-30",
date.granularity = "week",
metrics = "visits",
elements = "page",
top = "7")
#Validate returned value is a data.frame
expect_is(cc, "data.frame")
#Selected Pages, Monthly
dd <- QueueTrended("zwitchdev",
"2019-09-01",
"2019-09-30",
date.granularity = "month",
metrics = "exits",
elements = "page",
selected = c("https://randyzwitch.com/creating-stacked-bar-chart-seaborn", "https://randyzwitch.com"))
#Validate returned value is a data.frame
expect_is(dd, "data.frame")
#Selected Pages, Quarterly, segment
ee <- QueueTrended("zwitchdev",
"2019-09-01",
"2019-09-30",
date.granularity = "quarter",
metrics = "entries",
elements = "page",
selected = c("https://randyzwitch.com/creating-stacked-bar-chart-seaborn", "https://randyzwitch.com"),
segment.id = "5433e4e6e4b02df70be4ac63")
#Validate returned value is a data.frame
expect_is(ee, "data.frame")
#Selected Pages, day, segment, Anomaly Detection
ff <- QueueTrended("zwitchdev",
"2019-09-01",
"2019-09-30",
date.granularity = "day",
metrics = "pageviews",
elements = "page",
selected = c("https://randyzwitch.com/creating-stacked-bar-chart-seaborn", "https://randyzwitch.com"),
segment.id = "5433e4e6e4b02df70be4ac63",
anomaly.detection = "1")
#Validate returned value is a data.frame
expect_is(ff, "data.frame")
gg <- QueueTrended("zwitchdev",
"2019-09-01",
"2019-09-02",
metrics = c("pageviews","visits"),
elements = c("page")
)
#Validate returned value is a data.frame
expect_is(gg, "data.frame")
hh <- QueueTrended("zwitchdev",
date.from = "2019-09-01",
date.to = "2019-09-02",
metrics = "pageviews",
elements = c("browser", "page")
)
#Validate returned value is a data.frame
expect_is(hh, "data.frame")
ii <- QueueTrended("zwitchdev",
date.from = "2019-09-01",
date.to = "2019-09-02",
metrics = "pageviews",
elements = c("page","browser")
)
#Validate returned value is a data.frame
expect_is(ii, "data.frame")
#Top 10 pages by pageviews, daily, 2 segments
jj <- QueueTrended("zwitchdev",
"2019-09-01",
"2019-09-30",
date.granularity = "day",
metrics = "pageviews",
elements = "page",
top = "10",
segment.id = c("5433e4e6e4b02df70be4ac63","54adfe3de4b02df70be5ea08"))
#Validate returned value is a data.frame
expect_is(jj, "data.frame")
#Top 10 pages by pageviews, daily, 2 segments
#Starting with 11
kk <- QueueTrended("zwitchdev",
"2019-09-01",
"2019-09-30",
date.granularity = "day",
metrics = "pageviews",
elements = "page",
top = 10,
start = 11,
segment.id = c("5433e4e6e4b02df70be4ac63","54adfe3de4b02df70be5ea08"))
#Validate returned value is a data.frame
expect_is(kk, "data.frame")
#Top 7 pages by visits, weekly, 2 segments
ll <- QueueTrended("zwitchdev",
"2019-09-01",
"2019-09-30",
date.granularity = "week",
metrics = "visits",
elements = "page",
top = "7",
segment.id = c("5433e4e6e4b02df70be4ac63","54adfe3de4b02df70be5ea08"))
#Validate returned value is a data.frame
expect_is(ll, "data.frame")
#Selected Pages, Monthly, 2 segments
mm <- QueueTrended("zwitchdev",
"2019-09-01",
"2019-09-30",
date.granularity = "month",
metrics = "exits",
elements = "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(mm, "data.frame")
#Selected Pages, Quarterly, 2 segments
nn <- QueueTrended("zwitchdev",
"2019-09-01",
"2019-09-30",
date.granularity = "quarter",
metrics = "entries",
elements = "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(nn, "data.frame")
#Selected Pages, day, segment, Anomaly Detection, 2 segments
oo <- QueueTrended("zwitchdev",
"2019-09-01",
"2019-09-30",
date.granularity = "day",
metrics = "pageviews",
elements = "page",
selected = c("https://randyzwitch.com/creating-stacked-bar-chart-seaborn", "https://randyzwitch.com"),
segment.id = c("5433e4e6e4b02df70be4ac63","54adfe3de4b02df70be5ea08"),
anomaly.detection = "1")
#Validate returned value is a data.frame
expect_is(oo, "data.frame")
#gg repeated with 2 segments
pp <- QueueTrended("zwitchdev",
date.from = "2019-09-01",
date.to = "2019-09-30",
metrics = c("pageviews","visits"),
elements = c("browser") ,
segment.id = c("5433e4e6e4b02df70be4ac63","54adfe3de4b02df70be5ea08")
)
#Validate returned value is a data.frame
expect_is(pp, "data.frame")
#hh repeated with 2 segments
qq <- QueueTrended("zwitchdev",
date.from = "2019-09-01",
date.to = "2019-09-30",
metrics = "pageviews",
elements = c("browser", "page") ,
segment.id = c("5433e4e6e4b02df70be4ac63","54adfe3de4b02df70be5ea08")
)
#Validate returned value is a data.frame
expect_is(qq, "data.frame")
#ii repeated with 2 segments
rr <- QueueTrended("zwitchdev",
date.from = "2019-09-01",
date.to = "2019-09-30",
metrics = "pageviews",
elements = c("page","browser") ,
segment.id = c("5433e4e6e4b02df70be4ac63","54adfe3de4b02df70be5ea08")
)
#Validate returned value is a data.frame
expect_is(rr, "data.frame")
#check enqueueOnly returns numeric report id
ss <- QueueTrended("zwitchdev",
date.from = "2019-09-01",
date.to = "2019-09-30",
metrics = "pageviews",
elements = c("page","browser") ,
segment.id = c("5433e4e6e4b02df70be4ac63","54adfe3de4b02df70be5ea08"),
enqueueOnly = TRUE
)
#Validate returned value is a numeric
expect_is(ss, "numeric")
#GitHub issue 207, fixes Error in if (!is.null(elements[i, ]$classification) && nchar(elements[i, :
#missing value where TRUE/FALSE needed
issue207 <- QueueTrended(
reportsuite.id = "zwitchdev",
date.from = "2019-09-01",
date.to = "2019-09-30",
top = "1000",
metrics = c("visits"),
elements = c("page", "mobiledevicetype"),
classification = "JuliaPages",
date.granularity = "week",
segment.id = "",
data.current = TRUE,
expedite = FALSE,
interval.seconds = 5,
max.attempts = 10000,
validate = TRUE,
enqueueOnly = FALSE
)
#Validate returned value is a data.frame
expect_is(issue207, "data.frame")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.