We must kill the Loop .... Man.

Kill-The-Loop-Man.R

# pretending to fetch HTML
getBody <- function(url) {
  if (url == "http://garbage.broken") return(0)
  else return(paste("this is the html for ",url))
}

sites.names <- c("Google","ESPN","Garbage","ROK")
sites.urls <- c("http://google.com","http://espn.com","http://garbage.broken","http://returnofkings.com")
sites.df <- data.frame(Name=sites.names, Url=sites.urls, stringsAsFactors=FALSE)

# I want to get the HTML for the working sites
# No loop you guys
goodBodies <- Reduce(function(list,url) {
  body <- getBody(url)
  if (body != 0) c(list,body) else list
},sites.df["Url"][[1]],vector())