Skip to content

Instantly share code, notes, and snippets.

View kbmorales's full-sized avatar

Ken Morales kbmorales

View GitHub Profile
@kbmorales
kbmorales / scrape_example.R
Last active February 19, 2018 20:24
Sample code block for Matt Kiang
# Purpose: scrape metadata from random videos (packages not included)
URL <- "https://www.pornhub.com/gay/video/random"
# Initialize data list and vars for storage
randviddat.list = list()
i <- 1
maxvid <- 1000
# Iterator for scraping
for(i in 1:maxvid) {