# NOT RUN {
# connection setup
(x <- connect())
if (!index_exists(x, "iris")) {
invisible(docs_bulk(x, iris, "iris"))
}
body1 <- '{
"inline" : {
"query": { "match" : { "{{my_field}}" : "{{my_value}}" } },
"size" : "{{my_size}}"
},
"params" : {
"my_field" : "Species",
"my_value" : "setosa",
"my_size" : 3
}
}'
Search_template(x, body = body1)
body2 <- '{
"inline": {
"query": {
"match": {
"Species": "{{query_string}}"
}
}
},
"params": {
"query_string": "versicolor"
}
}'
Search_template(x, body = body2)
# pass in a list
mylist <- list(
inline = list(query = list(match = list(`{{my_field}}` = "{{my_value}}"))),
params = list(my_field = "Species", my_value = "setosa", my_size = 3L)
)
Search_template(x, body = mylist)
## Validating templates w/ Search_template_render()
Search_template_render(x, body = body1)
Search_template_render(x, body = body2)
## pre-registered templates
### register a template
if (x$es_ver() <= 520) {
body3 <- '{
"template": {
"query": {
"match": {
"Species": "{{query_string}}"
}
}
}
}'
Search_template_register(x, 'foobar', body = body3)
} else {
body3 <- '{
"script": {
"lang": "mustache",
"source": {
"query": {
"match": {
"Species": "{{query_string}}"
}
}
}
}
}'
Search_template_register(x, 'foobar', body = body3)
}
### get template
Search_template_get(x, 'foobar')
### use the template
body4 <- '{
"id": "foobar",
"params": {
"query_string": "setosa"
}
}'
Search_template(x, body = body4)
### delete the template
Search_template_delete(x, 'foobar')
# }
Run the code above in your browser using DataLab