#connect
library(rmongodb)
mongo <- mongo.create(host = '主机',
username = '用户名',
password = '密码',
db = 'media')
mongo.is.connected(mongo)
mongo.get.database.collections(mongo,db = 'media')
mongo.count(mongo,ns = 'tablename')
#-------------------------------------------------------------------------------
# get data
#----------------------------------------------------------------------------------
startDate <- as.POSIXct("2016-12-18 16:00:00",tz='GMT')
endDate <- as.POSIXct("2016-12-25 16:00:00",tz='GMT')
q <- mongo.bson.from.list(list("date" = list("$gte" = startDate,"$lte" = endDate)))
list <- mongo.find.all(mongo,ns = 'tablename',q,fields = '{"wechat_id":1,"gzh_name":1,"title":1,"url":1,"read_num":1,"like_num":1,"date":1,"updated_at":1,"created_at":1}')
#创建dataframe
df <- data.frame( wechat_id = NA,
gzh_name = NA,
title = NA,
url = NA,
read_num = NA,
like_num = NA,
date = NA,
updated_at = NA,
created_at = NA
)
R连接rmongodb
最后编辑于 ：
©著作权归作者所有,转载或内容合作请联系作者
- 文/潘晓璐 我一进店门，熙熙楼的掌柜王于贵愁眉苦脸地迎上来，“玉大人，你说我怎么就摊上这事。” “怎么了？”我有些...
- 文/花漫 我一把揭开白布。 她就那样静静地躺着，像睡着了一般。 火红的嫁衣衬着肌肤如雪。 梳的纹丝不乱的头发上，一...
- 文/苍兰香墨 我猛地睁开眼，长吁一口气：“原来是场噩梦啊……” “哼！你这毒妇竟也来了？” 一声冷哼从身侧响起，我...
推荐阅读更多精彩内容
- 我只是分享一个经历，不建议大家像我这样操作，浪费大量时间，但是至少证明这样是可以的，在实在没有办法的情况下可以这样...
- 暴风超体电视第二代终于在五四青年节当日与大家见面，作为青春的赞礼暴风发布三款X战警版超体电视，分别有43、50、5...
