Nothing
context("mtermvectors")
x <- connect(port = Sys.getenv("TEST_ES_PORT"), warn = FALSE)
load_omdb(x)
ids <- vapply(Search(x, "omdb", size = 2)$hits$hits, "[[", "", "_id")
body <- sprintf('{
"ids" : ["%s", "%s"],
"parameters": {
"fields": [
"Plot"
],
"term_statistics": true
}
}', ids[1], ids[2])
test_that("mtermvectors works", {
skip_on_travis()
if (gsub("\\.", "", x$ping()$version$number) < 130) skip('feature not in this ES version')
aa <- mtermvectors(x, 'omdb', 'omdb', body = body)
expect_is(aa, 'list')
expect_named(aa, 'docs')
expect_equal(aa$docs[[1]]$`_index`, "omdb")
expect_equal(aa$docs[[1]]$`_type`, "omdb")
expect_is(aa$docs[[1]]$`_id`, "character")
expect_is(aa$docs[[1]]$term_vectors, "list")
expect_named(aa$docs[[1]]$term_vectors, 'Plot')
expect_named(aa$docs[[1]]$term_vectors$Plot, c('field_statistics', 'terms'))
expect_is(aa$docs[[1]]$term_vectors$Plot$field_statistics, "list")
expect_is(aa$docs[[1]]$term_vectors$Plot$terms, "list")
expect_is(aa$docs[[1]]$term_vectors$Plot$terms[[1]], "list")
expect_named(aa$docs[[1]]$term_vectors$Plot$terms[[1]]$tokens[[1]], c('position', 'start_offset', 'end_offset'))
})
test_that("mtermvectors fails well", {
skip_on_travis()
expect_error(mtermvectors(x, body = body), "index is missing")
if (es_version(x) < 700) {
expect_error(mtermvectors(x, "omdb", body = body), "type is missing")
}
})
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.