context("buildCondition")
test_that("== operator", {
out <- buildCondition("city", "==", "Seville" )
expect_equal(out, "\"city\":\"Seville\"")
})
test_that("!= operator", {
out <- buildCondition("city", "!=", "Seville" )
expect_equal(out, "\"city\":{\"$not\":{\"$eq\":\"Seville\"}}")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.