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"
这是我的数据库结构。查询无法处理输入数据。