If you want to crawl a couple of URLs for SEO purposes, there are many ways to do it but one of the most reliable and versatile packages you can use is the package.
Here is a from the package documentation using the IMDb website:
# Package installation, instruction to be run only once
install.packages("rvest")
# Loading rvest
packagelibrary(rvest)
The first step is to crawl the URL and store the webpage inside a ‘lego_movie’ variable.
For those who don’t know %>% operator here is
html_nodes() function will extract from our webpage, HTML tags that match CSS style query selector. In this case, we are looking for a <span> tag whose parent is a <strong> tag.
then script will extract the inner text value using html_text() then convert it to a number using as.numeric().
Finally, it will store this value inside rating variable to display the value just write:
rating
# it should display > [1] 7.8
Let’s take another example. This time we are going to grab the movies’ cast.
Having a look at the HTML DOM, it seems that we need to grab an HTML <img> tag who’s parent tag have ‘titleCast’ as an id and ‘primary_photo’ as a class name and then we’ll need to extract the alt attribute
Last example, we want the movie poster url. First step is to grab <img> tag who’s parent have a class name ‘poster’ Then extract src attribute and display it
Now that we’ve seen an example by the book. We’ll switch to something more useful and a little bit more complex. Using the following tutorial, you’ll be able to extract the review score of any WordPress plugins over time.
But before that, a little warning, the source code I’m about to show you has been made by me. It’s full of flaws, couple of stack overflow copypasta but… it works. 😅 So Dear practitioners please don’t judge me
It’s one of the beauties of R, you get your ends relatively easily.
(but I gladly accept any ideas to make this code easier for beginner, don’t hesitate to contact me)
We’ll have to make a loop to run into each pagination. Another problem is that no dates are being displayed but only durations, so we’ll have to convert them.
As usual, we’ll first load the necessary packages. If there are not installed yet, run the install.packages() function as seen before.
# we store plugin url inside a variable, to make the code easy to reuse
pluginurl <- "https://wordpress.org/support/plugin/wp-fastest-cache/"
# we create and empty dataframe to receive the data that will be retrieved from each pagination. If you don't know what's a data frame think of them as excel file
all_reviews <- data.frame()
##### beginning of the LOOP ####
# if copy past stuff, don't forget to grab the code until the end of the loop at least
for(i in 1:49) {
# sending to console the loop status
# paste0() function is just a concatenation function with a weird name
message(paste0("Page ",i))
# faculative: make a small break betweeh each loop iteration
# this pause the loop for 2 secondes
# Sys.sleep(2)
# we grab the webpage and store the result inside html_page variable to be able to reuse it several times
html_page <- read_html(paste0(pluginurl,"reviews/page/",i,"/"))
# html_nodes is function that use the css or xpath to extract the value from the html page. This part is to extract the number of stars
reviews <- html_nodes(html_page, ".wporg-ratings")
# Then we are getting every htmml attributes values into columns and rows
# it's a copy/past from stackoverflow, it's works don't ask me how.
extract <- bind_rows(lapply(xml_attrs(reviews), function(x) data.frame(as.list(x), stringsAsFactors=FALSE)))
# using the extract() function get the number of stars
extract <- extract %>% extract(title,c("note"))
# same process but this time to extract the duration
# Grabing from the html file, the duration being displayed
dates <- html_nodes(html_page, ".bbp-topic-freshness")
# Extracting the real duration value from text: we remove line breaks and what's after "ago"
extract$dates <- html_text(dates, trim = T) %>% str_replace_all("[\r|\n|\t]" , "") %>% str_replace_all(" ago.*$" , "")
# apply duration type to values, necessary for future conversions
# more info https://lubridate.tidyverse.org/reference/duration.html
extract$duration <- lubridate::as.duration(extract$dates)
# removing from the data frame the now useless columns & rows
extract$class <- NULL
extract$title <- NULL
extract$style <- NULL
extract$note$class <-NULL
extract$note$style <- NULL
extract <- extract[-1,]
# erase rownames
rownames(extract) <- c()
# converte values to the right type
extract$note <- as.vector(extract$note)
extract$note <- as.numeric(extract$note)
# adding all date retrieved during this loop to the main data frame 'all_reviews'
all_reviews <- rbind(all_reviews, extract)
##### END OF THE LOOP #####
}
The next step is to convert these durations into days. It’s going to be quick:
# .Data is the number of seconds, we divided by 86400 to have the number of days and we round it
all_reviews$duration2 <- round(all_reviews$duration@.Data/86400)
# Today date minus review age will give us the review date
all_reviews$day <- today()-all_reviews$duration2
# we want to see number of stars as a category not as a scale
all_reviews$note <- as.factor(all_reviews$note)
