1 
library(jsonlite)
library(mongolite)
library(lubridate)

#' @post /predict

  predict= function(x, y)
    {
            
    mongodatas <- mongo(collection='db12', url='mongodb://ganesh123:ganesh123456789@ds263137.mlab.com:63137/ganesh123')

    naan <- mongodatas$find(query= '{ "data_time":  {"$gte": "x" , "$lt": "y"} }',
                          fields= '{"_id": 0, "data_time": 1, "id": 1, "sensor3": 1 }',
                          sort=  '{"data_time": 1}' ,
                          limit=5000
                          )

    return(naan)

  }

上面的代码是我的 R Api 使用管道工完成并使用 POST 方法完成，如果下面的邮递员输入x并且y在查找查询中以静态形式给出，则此代码有效

naan <- mongodatas$find(query= '{ "data_time":  {"$gte": **"x"** , "$lt": **"y"**} }',  "

    {
        
    "x": "2018-07-25 17:02:17.249591",
    "y": "2018-07-25 17:02:17.674801"
        
}

上面的代码是我对 R Api 的输入 这是来自邮递员链接 http://localhost:3000/predict 的输入

 "id": "1",
 "data_time": "2018-07-25 17:02:17.249591",
 "sensor3": "4.12"

这是我的数据库结构。查询无法处理输入数据。

4

0 回答 0