gistfile1.txt

nrs <- rep(seq(1,5,1),2)
sex <- c("M","M","M","M","M","F","F","F","F","F") 

links <- NULL

#Loop to create 10 links, 5 for the male age grou 18-24, 5 for women agegroup 18-24. However,
#there are only 3 pages in the male age group with a table.
for (i in 1:length(nrs) ) {                                                                   
  links[i] = paste("http://www.ironman.com/triathlon/events/americas/ironman/texas/results.aspx?p=",nrs[i],"&race=texas&rd=20160514&sex=",sex[i],"&agegroup=18-24&loc=",sep="")    
}

resultlist <- list() #create empty list to store results

for (i in 1:length(links)) {
  tryCatch({
    results = readHTMLTable(links[i],
                          as.data.frame = TRUE, 
                          which=1,
                          stringsAsFactors = FALSE,
                          header = TRUE) #get data
    resultlist[[i]] <- results #combine results in one big list
  }, error = function(e){
    print(paste("Failed for ", links[i]))
  })
}

results = do.call(rbind, resultlist) #combine results into dataframe