使用 rmongodbHelper 时 eval(expr, envir, enclos) 出错

Question

我正在使用 rmongodb 和 rmongodbHelper 包，并且我已经构建了这个函数。

CUPS_CP_TAR36 <- function(codi,cant){
  cups <- vector()
  query <- json_to_bson('{"clLst.U_COD_POSTAL": codi, "clLst.TARIFA_ATR": {"$in": "3.0A","3.1A","6.1"]}}')
  output <- json_to_bson('{"id":1}')
  cursor <- mongo.find(mongo, sips, query, fields=output, limit=cant)
  k = 0
  while(mongo.cursor.next(cursor)){
    k = k + 1
    cups[k] <- mongo.bson.value(mongo.cursor.value(cursor), "_id") 
  }
    return(cups)  
}

但是当我尝试使用它时：

example <- CUPS_CP_TAR36(codi="08036", cant=10)

我收到以下错误，真的不知道为什么，我不习惯编写自己的函数：

Error in eval(expr, envir, enclos) : object 'codi' not found

谢谢！

Answer 1

query <- json_to_bson('{"clLst.U_COD_POSTAL": codi, ...}')

json_to_bson() 需要一个 JSON 字符串。您提供的字符串不是有效的 JSON，就像 {"key":val} 无效 - 而 {"key":"val"} 或 {"key":3.14} 有效。

当然，codi 在您的情况下甚至不打算成为一个字符串，而是作为一个变量。但是在您编写代码时，R 无法知道这一点。

所以你可以写：

query <- json_to_bson(sprintf('{"clLst.U_COD_POSTAL": "%s", ...}',codi))

那么与您的 codi 值的等效表达式是：

query <- json_to_bson('{"clLst.U_COD_POSTAL": "08036", ...}')

出现涉及eval() 的错误消息的原因是 b/c 我非常非常简单地编写了 JSON 的解释 - 请注意，这个“包”只是一种解决方法，希望很快就会成为多余。

使用字符串替换将 JSON 转换为 list()-表达式，然后使用 eval()ed。

rmongodbHelper / R / json_to_list.R:

json_to_list <- function(json) {
  json <- gsub("\n","",json)
  json <- gsub("\\{\\}","list()",json)
  [...]
  json <- gsub("\\$","_$",json)

  return(eval(parse(text = json)))
}

---

更多详情：MongoDB – State of the R

Answer 2

从github 尝试最新的 rmongodb 版本。来自 json 的 bson 开箱即用。此外，mongo.bson.to.list 在每种情况下都可以正常工作，因此您不需要从 json 构造 bson。我计划下周将新版本的包推送到 CRAN。

library(devtools)
install_github("mongosoup/rmongodb")