Mongolite basic demo

mongolite_demo.R

library(mongolite)
library(dplyr)

# connect to database
con <- mongo(collection = "relet_price", db = "bizops", url ="mongodb://localhost", verbose = TRUE)

# some random id based on datetime
gen_id <- function(){
    c <- gsub("(\\:|\\-|\\s)", "", as.character(Sys.time()))
    strsplit(c, "") %>% 
        unlist() %>% 
        sample() %>% 
        paste(sep = "", collapse = "") %>% 
        substr(start = 1, stop = 4)
}

# 
res <- list(
    id = gen_id(),
    status = "1",
    date = Sys.Date(),
    price = rnorm(1, mean = 2000, sd = 100)
)

# insert
con$insert(res)

# find by
con$find() %>% filter(id == "1568")