diff --git a/NAMESPACE b/NAMESPACE index 11e193e..a347566 100644 --- a/NAMESPACE +++ b/NAMESPACE @@ -8,3 +8,4 @@ export(elastic_update) export(elasticizer) export(merger) export(modelizer) +export(query_string) diff --git a/R/query_string.R b/R/query_string.R new file mode 100644 index 0000000..d45e7e9 --- /dev/null +++ b/R/query_string.R @@ -0,0 +1,26 @@ +#' Generate a query string query for ElasticSearch +#' +#' Generate a query string query for ElasticSearch +#' @param x Query string in ElasticSearch query string format +#' @return A formatted ElasticSearch query string query +#' @export +#' @examples +#' query_string(x) +################################################################################################# +#################################### Get data from ElasticSearch ################################ +################################################################################################# + +query_string <- function(x) { + return(paste0( + '{ + "query": { + "query_string" : { + "default_field" : "text", + "query" : "',x,'", + "default_operator": "AND", + "allow_leading_wildcard" : false + } + } +}' + )) +} diff --git a/man/query_string.Rd b/man/query_string.Rd new file mode 100644 index 0000000..666c9f4 --- /dev/null +++ b/man/query_string.Rd @@ -0,0 +1,20 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/query_string.R +\name{query_string} +\alias{query_string} +\title{Generate a query string query for ElasticSearch} +\usage{ +query_string(x) +} +\arguments{ +\item{x}{Query string in ElasticSearch query string format} +} +\value{ +A formatted ElasticSearch query string query +} +\description{ +Generate a query string query for ElasticSearch +} +\examples{ +query_string(x) +}