#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}')
#創(chuàng)建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
最后編輯于 :
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請聯(lián)系作者
【社區(qū)內(nèi)容提示】社區(qū)部分內(nèi)容疑似由AI輔助生成,瀏覽時請結(jié)合常識與多方信息審慎甄別。
平臺聲明:文章內(nèi)容(如有圖片或視頻亦包括在內(nèi))由作者上傳并發(fā)布,文章內(nèi)容僅代表作者本人觀點,簡書系信息發(fā)布平臺,僅提供信息存儲服務(wù)。
【社區(qū)內(nèi)容提示】社區(qū)部分內(nèi)容疑似由AI輔助生成,瀏覽時請結(jié)合常識與多方信息審慎甄別。
平臺聲明:文章內(nèi)容(如有圖片或視頻亦包括在內(nèi))由作者上傳并發(fā)布,文章內(nèi)容僅代表作者本人觀點,簡書系信息發(fā)布平臺,僅提供信息存儲服務(wù)。
相關(guān)閱讀更多精彩內(nèi)容
- 我只是分享一個經(jīng)歷,不建議大家像我這樣操作,浪費大量時間,但是至少證明這樣是可以的,在實在沒有辦法的情況下可以這樣...
- 關(guān)系數(shù)據(jù)庫系統(tǒng)中的數(shù)據(jù)是以規(guī)范化格式存儲的。 所以,為了進行統(tǒng)計計算,我們需要非常高級和復雜的SQL查詢。但是R可...
- 熱播劇《我的前半生》終于大結(jié)局了,劇中的每個人物似乎都有了一個結(jié)局,但追劇的我們的生活還在繼續(xù),就像醬子的老板老卓...
- 暴風超體電視第二代終于在五四青年節(jié)當日與大家見面,作為青春的贊禮暴風發(fā)布三款X戰(zhàn)警版超體電視,分別有43、50、5...