2

我必须进行很多mongoengine查询，所以我尝试编写一个函数来减少重复自己的频率。运行查询的基本代码是：

library(mongolite)    
m <- mongo('test', 'test', url = testurl)
mydata <- m$find('{"field1": "foo", "field2": "bar"}')

我的功能是：

get_mongo_data <- function(field1, field2, mongoconnection = m){
  mongo_string = toJSON(paste0('\'{\"field1": \"', field1,
                               '\", "field2": \"', field2, '\"}\''))
  dataset <- mongoconnection$find(mongo_string)
  return(dataset)
}

但是当我尝试使用它时，它失败了。

mydata <- get_mongo_data('foo', 'bar') # fails

为了了解发生了什么，我查看了我的函数实际传递给查询的内容：

> (mongo_string = toJSON(paste0('\'{\"field1": \"', field1,
                                '\", "field2": \"', field2, '\"}\'')))
["'{\"field1\": \"foo\", \"field2\": \"bar\"}'"]

我可以看到它不匹配。["它在字符串的两侧添加一个。但是，没有这个toJSON功能，我得到Error: Invalid JSON object: '{"field1": "foo", "field2": "bar"}'

有没有办法以这种方式将字符串传递给 JSON 对象，以便我可以编写一个接受字符串并返回mongolite查询结果的函数？

4

1 回答 1

1

我找到了解决方案。我删除了toJSON()调用，并删除了我认为'在字符串两端都是必需的。以下代码有效。

library(mongolite)    
m <- mongo('test', 'test', url = testurl)
mydata <- m$find('{"field1": "foo", "field2": "bar"}')

get_mongo_data <- function(field1, field2, mongoconnection = m){
  mongo_string = paste0('{\"field1": \"', field1,
                        '\", "field2": \"', field2, '\"}')
  dataset <- mongoconnection$find(query = mongo_string)
  return(dataset)
}

mydata <- get_mongo_data('foo', 'bar') # succeeds
于 2017-01-05T16:36:08.190 回答