CheckURLs.R

library(httr)
library(stringr)

dat = read.csv("fileWithURLs.csv", stringsAsFactors = F)


---------------- for loop to get results ----------------
for (i in 1:nrow(dat)) {
  a = GET(dat$Current.Forward[i])
  dat$URL[i] = a$url
  dat$StatusCode[i] = status_code(a)
}


---------------- wrote a function to do this ----------------

urlGetter = function(URL) {
  a = GET(URL)
  print(a$url)
  print(status_code(a))
  data.frame("STATUS" = status_code(a),"URL" = a$url)
  
}

x = sapply(dat$URLlist,urlGetter)