Random Wikipedia Pages

Random Wikipedia Page Analysis

We are interested in collecting 10 random wikipedia articles to analyze:

wikis <- 
  rep("http://asayanalytics.com/bored",10)
wiki_pages <- 
  c()

for(i in seq_along(wikis)) {
  wiki_pages[i] <-
    wikis[i] %>% 
    read_html() %>% 
    html_elements("h1") %>% 
    html_text2()

  Sys.sleep(1) 
}

Let’s create a histogram to see the length of the names we have

hist( str_length(wiki_pages) )

Wow! How analytical!