R/mongoCollection.r

In strongh/mongor: A driver for MongoDB

##' 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
}