我正在从我的网站上的事件列表中提取事件描述。每个事件都是一个href链接,它转到另一个页面,在那里我们可以找到图像和事件的描述。我正在尝试将图像url和所有事件的描述存储在一个数组中,所以我在循环结束时使用了下面的代码,但是我只获取了最后一个事件的图像和描述:
m<-c(images_of_events)
n<-c( description_of_events)
cc<-remDr$findElement(using = "css", "[class = '_24er']")
cc<-remDr$getPageSource()
page_events<-read_html(cc[[1]][1])
links_events_data=html_nodes(page_events,'._24er > table > tbody > tr > td >
div> div._4dmk > a ')
events_urls<-html_attr(links_events_data,"href")
//每个事件的循环
for (i in events_urls) {
remDr$navigate(paste("localhost://www.mywebsite",i,sep=""))
#get image
imagewebElem <- remDr$findElement(using = "class", "scaledImageFitWidth")
images_of_events<-imagewebElem $getElementAttribute("src")
descriptionwebElem <-remDr$findElement(using = "css", "[class = '_63ew']")
descriptionwebElem <-remDr$getPageSource()
page_event_description<-read_html(descriptionwebElem[[1]][1])
events_desc =html_nodes(page_event_description,'._63ew > span')
description_of_events= html_text(events_desc)
m<-c(images_of_events)
n<-c( description_of_events)
}
要在R中保存数组中的值,您必须这样做
1)创建数组/ data.frame dta <- data.frame(m=c(),n=c())
然后保存到它dta[i,1] <- image_of_events
和dta[i,2] <- description_of_evants
其中i
是数字迭代器
2)创建数组/ data.frame并使用rbind
添加像dta <- rbind(dta, data.frame(m=images_of_events, n = description_of_events))
这样的值