R/sbscrape_instagram.R

In sbscrapeR: Social Blade Scraper

#'Scrape instagram statistics from socialblade.com
#'
#'@param url will only work with https://socialblade.com/instagram/user/... links
#'
#'@keywords instagram
#'@concept socialblade
#'@export
#'@examples
#'#'sbscrape_instagram("https://socialblade.com/instagram/user/therock")


sbscrape_instagram<-function(url){
  # require(rvest,quietly = TRUE)
  # require(lubridate,quietly=TRUE)

  tryCatch(
    {
      pipeit<-function(url,code){
        read_html(url)%>%html_nodes(code)%>%html_text()
      }

      lk<-pipeit(url,
                 "#socialblade-user-content div div div:nth-child(2) div:nth-child(2)")
      lk<-trimws(lk[-c(1:2)])

      tk<-pipeit(url,
                 "#socialblade-user-content div div div:nth-child(3) div:nth-child(2)")
      md<-pipeit(url,"#socialblade-user-content div div div:nth-child(4) div:nth-child(2)")

      dates<-c()
      for(i in 1:14){
        dates[i]<-Sys.Date()-i+1
      }
      dates<-rev(as_date(dates))
      lk<-as.numeric(sapply(as.character(lk),
                            function(x) gsub(",","",x)))
      tk<-as.numeric(sapply(as.character(tk),
                            function(x) gsub(",","",x)))
      md<-as.numeric(sapply(as.character(md),
                            function(x) gsub(",","",x)))

      data.frame(Date=dates,"Followers"=lk,"Following"=tk,"Media"=md)
    },
    error=function(error_message){
      message("Error in sbscrape: Please enter valid url. ")
      message("sbscrape will only work with https://socialblade.com/instagram/user/... links")
    })
}