From db418d739696bb4b87e1c32f9557f1246503b014 Mon Sep 17 00:00:00 2001
From: Erik de Vries <erik@devries.pm>
Date: Tue, 6 Nov 2018 14:17:35 +0100
Subject: [PATCH] Add query_string function for generating query_string queries

---
 NAMESPACE           |  1 +
 R/query_string.R    | 26 ++++++++++++++++++++++++++
 man/query_string.Rd | 20 ++++++++++++++++++++
 3 files changed, 47 insertions(+)
 create mode 100644 R/query_string.R
 create mode 100644 man/query_string.Rd

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)
+}