gistfile1.txt

Fighters_Scrapped=data.frame()
#Get Fighters' URL
Fighters_URL=sapply(unique(c(as.character(Fights_Scrapped$Fighter1_url),as.character(Fights_Scrapped$Fighter2_url))),function(x) paste('http://sherdog.com',x,sep=''))
for(j in seq(1,length(Fighters_URL))){
  Fighter=read_html(Fighters_URL[j])
  Result=Fighter %>% html_nodes('strong, .locality, .birthday span,.vcard h1') %>% html_text()
  Fighter_got=as.data.frame(t(Result[1:9]))
  colnames(Fighter_got)=c('Name','Birth_Date','Age','Birth_Place','Country','Height','Weight','Association','Class')
  Fighter_got$Fighter_id=gsub('.*-','',Fighters_URL[j])
  Fighters_Scrapped=rbind(Fighters_Scrapped,Fighter_got)
  
  print(j)
}