json - Elasticsearch查询中单引号 “json”对象中的R变量

Question

如何在Elasticsearch查询主体中放入变量？

这就是我要的:

a = "apple"
body = '{
         "query": {
             "match": {
                 "fruit": a
             }
         }
 }'

这就是我所拥有的，但是对于大型查询主体而言，它将是不可读的:

paste('{"query": {"match": {"fruit": "', a, '"}}}')

Answer 1

将jsonlite包与列表一起使用。

library(jsonlite)

a <- "apple"

body <- list(
  query = list(
    match = list(
      fruit = a
    )
  )
)

toJSON(body)

# {"query":{"match":{"fruit":["apple"]}}} 

如 Rich Scriven所建议，您可以在 pretty = TRUE语句中添加 auto_unbox = TRUE和/或 toJSON来更改输出。
pretty = TRUE

# {
#   "query": {
#     "match": {
#       "fruit": ["apple"]
#     }
#   }
# } 

auto_unbox = TRUE

# {"query":{"match":{"fruit":"apple"}}}

所有组合均为有效JSON