Nothing
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")
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.