(各位老师,好,之前在网上看到一篇您写的用R软件爬虫的推文[https://mp.weixin.qq.com/s?__biz=MzI5NDY1MjQzNA==&mid=2247488261&idx=1&sn=a6eb1aa7e3aa3ae7065ce76adc124673&chksm=ec5ecc78db29456e20b444756f074bdb8859efd7522a6523aa1b6c469d3ae44f81e9dea222cc&mpshare=1&scene=1&srcid=1220rTg6mM4V3gCmfhVzhLzc#rd],我想问问如何利用R软件实现。R利用的httr包里面也有)
GET和POST函数,我仿造例子写了下代码:
library(httr)
#cookie <- 'AlteonP=A8KeEQnySd7Wkp8OMNsQTw$$;iplocation=%E5%8C%97%E4%BA%AC%E5%B8%82%7C0%7C0'
cookie <- ' _u_=1; gr_user_id=40f8d796-9967-4f05-b8e9-5ad94b4fdbce; Hm_lvt_7226f1398a8a1aae74384b0f7635de6f=1545374993; AlteonP=A8KeEQnySd7Wkp8OMNsQTw$$; __RequestVerificationToken=HWDlXbsh0czOhNPjLp5-CBYhP4HOM_IJwBL0FJmEScxG60_bsLhoA8EQ6pQrxO-U_ql7ohw9Ti_LUQtHmYVm-Uh8rAmHo4BVjyOTKmgybXMjHXhkwfh8RxCE2TbaXC-LWzeLDUx2G6vFuk-iLDxElw2; gr_session_id_a58d28f5fdbbcb8b=566fb47d-7fac-46a0-b63c-899eb81d0acd; gr_session_id_a58d28f5fdbbcb8b_566fb47d-7fac-46a0-b63c-899eb81d0acd=true; Hm_lpvt_7226f1398a8a1aae74384b0f7635de6f=1545394443; iplocation=%E4%B8%8A%E6%B5%B7%E5%B8%82%7C0%7C0'
headers <- c('Accept'='text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,image/apng,*/*;q=0.8',
'Content-Type'='text/html; charset=utf-8',
'Referer'='http://www.pizzahut.com.cn/StoreList',
'Host'= 'www.pizzahut.com.cn',
'User-Agent'='Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/68.0.3440.106 Safari/537.36',
'Connection'='keep-alive',
'cookie'='cookie')
payload<-list(
pageIndex=1,
pageSize=50
)
url <- "http://www.pizzahut.com.cn/StoreList"
louwill1<-POST(url,add_headers(.headers =headers))
louwill2<-POST(url,add_headers(.headers =headers),body = payload, encode="json")
content(louwill2)
上面命令没有下载到数据,请教各位。谢谢!