Nothing
context("count")
x <- connect(port = Sys.getenv("TEST_ES_PORT"), warn = FALSE)
z <- connect(port = Sys.getenv("TEST_ES_PORT"), warn = TRUE)
load_shakespeare(x)
# sleep to make sure data is available as expected
Sys.sleep(2)
test_that("count", {
a <- count(x)
b <- count(x, index = 'shakespeare')
c <- count(x, index = 'shakespeare', q = "a*")
d <- count(x, index = 'shakespeare', q = "z*")
expect_is(a, "integer")
expect_is(b, "integer")
expect_is(c, "integer")
expect_is(d, "integer")
expect_gt(b, 10)
expect_error(count(x, "adfadf"), "no such index||IndexMissing")
if (x$es_ver() > 246) {
expect_equal(suppressWarnings(count(x, type = "adfad")), 0)
} else {
expect_error(count(x, type = "adfad"),
"no such index||IndexMissingException")
}
if (z$es_ver() >= 700) {
expect_warning(count(z, 'shakespeare', type = "line"),
"Specifying types in count requests is deprecated")
}
})
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.