R 刮擦问题-需要建议吗

R 刮擦问题-需要建议吗,r,curl,R,Curl,我正试图在网页下方刮取(尺寸细节) 看看页面结构,我相信它在后台运行javascript,并从服务器获取数据。我不知道如何刮这个网页。任何帮助都将不胜感激 非常感谢,Savi您可以看看如何使用Selenium来做到这一点: require(RSelenium) RSelenium::startServer() appURL <- "http://www.newlook.com/shop/womens/jackets-and-coats/navy-aztec-faux-shearling-c

我正试图在网页下方刮取(尺寸细节)

看看页面结构,我相信它在后台运行javascript,并从服务器获取数据。我不知道如何刮这个网页。任何帮助都将不胜感激


非常感谢,Savi

您可以看看如何使用Selenium来做到这一点:

require(RSelenium)
RSelenium::startServer()
appURL <- "http://www.newlook.com/shop/womens/jackets-and-coats/navy-aztec-faux-shearling-collar-parka_286764649?tmcampid=UK_AFF_AffiliateWindow"
remDr <- remoteDriver()
remDr$open()
remDr$navigate(appURL)
inventory <- remDr$executeScript("return list;")
> do.call(rbind.data.frame, inventory)
color listPrice popupImage   skuID
2                0            2867684
21               0            2867685
swatchImage largeImage salePrice
2                                 0
21                                0
detailImage stockLevel size
2                      75   12
21                    133   14

remDr$close()
remDr$closeServer()
require(RSelenium)
RSelenium::startServer()

appURL您可以查看如何使用Selenium来执行此操作:

require(RSelenium)
RSelenium::startServer()
appURL <- "http://www.newlook.com/shop/womens/jackets-and-coats/navy-aztec-faux-shearling-collar-parka_286764649?tmcampid=UK_AFF_AffiliateWindow"
remDr <- remoteDriver()
remDr$open()
remDr$navigate(appURL)
inventory <- remDr$executeScript("return list;")
> do.call(rbind.data.frame, inventory)
color listPrice popupImage   skuID
2                0            2867684
21               0            2867685
swatchImage largeImage salePrice
2                                 0
21                                0
detailImage stockLevel size
2                      75   12
21                    133   14

remDr$close()
remDr$closeServer()
require(RSelenium)
RSelenium::startServer()

appURL您可以查看如何使用Selenium来执行此操作:

require(RSelenium)
RSelenium::startServer()
appURL <- "http://www.newlook.com/shop/womens/jackets-and-coats/navy-aztec-faux-shearling-collar-parka_286764649?tmcampid=UK_AFF_AffiliateWindow"
remDr <- remoteDriver()
remDr$open()
remDr$navigate(appURL)
inventory <- remDr$executeScript("return list;")
> do.call(rbind.data.frame, inventory)
color listPrice popupImage   skuID
2                0            2867684
21               0            2867685
swatchImage largeImage salePrice
2                                 0
21                                0
detailImage stockLevel size
2                      75   12
21                    133   14

remDr$close()
remDr$closeServer()
require(RSelenium)
RSelenium::startServer()

appURL您可以查看如何使用Selenium来执行此操作:

require(RSelenium)
RSelenium::startServer()
appURL <- "http://www.newlook.com/shop/womens/jackets-and-coats/navy-aztec-faux-shearling-collar-parka_286764649?tmcampid=UK_AFF_AffiliateWindow"
remDr <- remoteDriver()
remDr$open()
remDr$navigate(appURL)
inventory <- remDr$executeScript("return list;")
> do.call(rbind.data.frame, inventory)
color listPrice popupImage   skuID
2                0            2867684
21               0            2867685
swatchImage largeImage salePrice
2                                 0
21                                0
detailImage stockLevel size
2                      75   12
21                    133   14

remDr$close()
remDr$closeServer()
require(RSelenium)
RSelenium::startServer()
appURL