Nothing
library(ganalytics)
context("Using expressions to create filters")
test_that("a filter can be a basic expression", {
expect_is(
TableFilter(GaExpr("dimension1", "!", "yellow")),
"gaFilter"
)
expect_equal(
as(TableFilter(GaExpr("dimension1", "!", "yellow")), "character"),
"ga:dimension1!=yellow"
)
})
test_that("ANDed (but not ORed) filter expressions may mix dimensions with metrics", {
expect_equal(as(
TableFilter(Or(GaExpr("pageviews", ">", 10), GaExpr("entrances", "<", 5))),
"character"), "ga:pageviews>10,ga:entrances<5")
expect_error(
TableFilter(Or(GaExpr("landingPagePath", "=", "/"), GaExpr("entrances", "<", 5))),
"cannot mix metrics and dimensions"
)
expect_equal(as(
TableFilter(And(GaExpr("landingPagePath", "=", "/"), GaExpr("entrances", "<", 5))),
"character"), "ga:landingPagePath==/;ga:entrances<5")
expect_error(
TableFilter(
And(
Or(
GaExpr("eventValue", "<", 50),
GaExpr("keyword", "@", "contact")
),
GaExpr("deviceCategory", "=", "mobile")
)
)
)
})
test_that("Filter expressions cannot use '[]' or '<>' comparators", {
expect_error(
TableFilter(GaExpr("medium", "[]", c("organic", "cpc"))),
"\\[\\]"
)
expect_error(
TableFilter(GaExpr("pageviews", "<>", c(10, 100))),
"<>"
)
})
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.