##' Connect to a mongo collection
##'
##' Returns a mongo collection object.
##' This necessarily specifies both the Mongo server and a DB on that server.
##'
##' @export
##' @param dname database name
##' @param host the IP address where mongo is hosted
##' @param port the port where mongo is hosted
##' @return socket connection
##'
##' @export
mongoCollection <-
function(collection, dbname, host="localhost", port=27017){
coll <- collection
attr(coll, "dbname" ) <- dbname
attr(coll, "conn") <- mongoConnect(host=host, port=port)
class(coll) <- c("mongoCollection", class(coll))
coll
}
##'
##' @export
summary.mongoDb <- function(db){
print(db)
}
##'
##' Don't export this yet - roxygen doesn't quote it in the NAMESPACE
`[.mongoCollection` <- function(collection, ...){
query <-
if (class(match.call()[3])=="call")
list()
else
list(...)
collection.name <- as.character(collection)
dbname <- attr(collection, "dbname")
conn <- attr(collection, "conn")
rep <- mongoFind.default(conn, dbname, collection, query)
rep
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.