- library(XML)
- base_url <- "http://www.uoguelph.ca/fare/user/"
- grabfare <- function(ID = 1:210) {
- for (i in ID) {
- url <- c()
- url[i] <- paste(base_url, ID,"/posts",sep="")
- html <- htmlTreeParse(url[i], useInternalNodes=T)
- }
- Name <- xpathSApply(html, "//title", xmlValue)
- result <- data.frame(ID=ID, Name)
- return(result)
- }
- grabfare(100)


雷达卡



京公网安备 11010802022788号







