Youtube subs as of 2016-01-20

xml_to_csv.R

library(xml2)

# save this from your youtube subscription manager (RSS feed at the bottom)
d <- "~/Desktop/subscriptions.xml"

data <- read_xml(d)
child <- xml_children(xml_children(data))

res <- as.data.frame(matrix(nrow=163,
                            ncol=2))

colnames(res) <- c("Name", "URL")

for (i in 1:163) {
  tryCatch({
    res[i,1] <- xml_attrs(xml_children(child),"text")[[i]][1]
    res[i,2] <- xml_attrs(xml_children(child),"text")[[i]][4]
  }, error=function(e){})
}

#write.csv(res, "~/Desktop/youtube_subs.csv", row.names=FALSE, quote=TRUE)

youtube_subs.csv