urlStatusChecker.R

urlStatusChecker = function(file,urlcol) {
   library(httr)
  
  dat = read.csv(file, stringsAsFactors = F)
  
  for (i in 1:nrow(dat)) {
    dat = dat[dat[urlcol] != "",]
    dat = dat = dat[!is.na(dat[urlcol]),]
    a = GET(dat[i,urlcol])
    dat$URL[i] = a$url
    dat$StatusCode[i] = status_code(a)
    print(paste("URL: ", i, " || ", dat$URL[i], " || Status: ",dat$StatusCode[i], sep = ""))
  }
  write.csv(dat, file = paste(file, "-checked.csv", sep = ""))
}

urlStatusChecker("AirportList.csv", 7)