使用R连接到Elasticsearch服务器

Question

我非常熟悉使用Python连接Elasticsearch服务器，但是当我正在探索R语言时，我陷入了这个连接部分。我通常使用这种代码在Python中连接服务器：

    import requests
    import json
    RM_URL = "http://es-int-client-1.senvpc:9200/rm_201609/_search?timeout=10000"        
    payload = { 

                  "size": 10000000,
                  "query": {
                  "filtered": {  
                    "filter" : {
                      "bool": {
                        "must": [
                          {"term": {"events.id": str(event_id)}},
                          {"range": {"score_content_0": {"gte": score}} },
                          {"range": {"published_at": { "gte": str(start_date+"T00:00:00"), 
                                                    "lte": str(end_date+"T23:59:59")}}},
                          {"term": {"lang": la}}

                        ]
                      }
                     }
                    }
                    }  
                }

     r = requests.post(RM_URL, json=payload)
     results = json.loads(r.content, encoding='utf-8')

如果有人能告诉我如何在R中做同样的事情，我会很高兴，谢谢！