library(RSelenium)checkForServer()startServer()Sys.sleep(5)re<-remoteDriver()re$open()re$navigate("http://espn.go.com/mens-college-basketball/playbyplay?gameId=400830392")shotchart <- data.frame(shot=as.vector(0), class=as.vector(0), data_homeaway=as.vector(0), data_period=as.vector(0), player_id=as.vector(0), data_text=as.vector(0), location=as.vector(0), gamenumber= as.vector(0))error="Error : t Summary: NoSuchElementn t Detail: An element could not be located on the page using the given search parameters.n t class: org.openqa.selenium.NoSuchElementExceptionn"i<-1element=0while ((i>0)&(element[1]!=error)){ text <-paste0("//*[(@)]//*[(@id)][",i,"]") element<- try(unlist(re$findElement(using='xpath', text)$getElementAttribute('id')),silent = TRUE) if (element[1]==error) break; shotchart[nrow(shotchart)+1,1]<- unlist(re$findElement(using='xpath',text)$getElementAttribute('id')) shotchart[nrow(shotchart),2]<- unlist(re$findElement(using='xpath', text)$getElementAttribute('class')) shotchart[nrow(shotchart),3]<-unlist(re$findElement(using='xpath', text)$getElementAttribute('data-homeaway')) shotchart[nrow(shotchart),4]<-unlist(re$findElement(using='xpath', text)$getElementAttribute('data-period')) shotchart[nrow(shotchart),5]<-unlist(re$findElement(using='xpath', text)$getElementAttribute('data-shooter')) shotchart[nrow(shotchart),6]<-unlist(re$findElement(using='xpath', text)$getElementAttribute('data-text')) shotchart[nrow(shotchart),7]<-unlist(re$findElement(using='xpath', text)$getElementAttribute('style')) shotchart[nrow(shotchart),8]<-i-1 i<-i+1}我不确定您的变量k是什么意思。
我从所有评论中获得了建议。
