mongolite出现认证错误

Question

为了将数据保存到mongodb（使用CRAN的mongolite包），我定义了以下功能：

  saveData <- function(data, collection) {
    # Connect to the database
    db <- mongo(collection = collection,
                url = paste0(
                  "mongodb://",
                  options()$mongodb$username, ":",
                  options()$mongodb$password, "@",
                  options()$mongodb$host, "/",
                  databaseName))
    # Insert the data into the mongo collection as a data.frame
    data <- as.data.frame(t(data))
    db$insert(data)
  }

我的数据存储在一个类似于这样的矩阵中：

> mat.answers
  var1 var2 var3 var4 var5
1    90       60          70      60      50
2    85       65          75      55      50
3    80       70          75      70      25
4    75       70          80      80      55
5    80       66          80      75      55

然而，当我使用命令保存一些数据时，我遇到了以下错误：

saveData(df.answers,"SST")
Mongo Message: SCRAM: authenticating "dynamo" (step 1)
Error: Authentication failed.
Called from: mongo_collection_command_simple(col, "{\"ping\":1}")
Browse[1]> 

我在mongodb配置文件中生成了一个用户并启用了身份验证。从mongo shell中，我可以使用这些凭据成功登录。但是无法连接本地数据库，也无法连接mongolab提供的远程数据库。

- Tim Ka

---

paste0("mongodb://", options()$mongodb$username, ":", options()$mongodb$password, "@", options()$mongodb$host, "/", databaseName) 这行代码是否能给你一个有效的URL？ - SymbolixAU

你解决了这个问题吗？我遇到了一个问题，因为我的认证数据库“admin”不是我的数据所在的数据库。但根据文档，我必须将认证数据库放在URI的末尾。 - Gabriel Fair

Answer 1

我发现以下命令让我可以使用mongolite连接到mongodb并使用传统的SCRAM-SHA-1身份验证模式。

library(mongolite)
mongoUrl <- "mongodb://a_username:a_password@localhost:27017/admin" #<-admin here is the mongodb database that stores the authentication info

# specify your collection
colname <- "a_collection"

# specify your database
dbname <- "a_database"

# create connection (con)
con <- mongo(collection = colname, url = mongoUrl, db=dbname)

# count how many records (fyi this is just a test)
con$count('{}')

- Gabriel Fair