ab604

## Load libraries
library(XML)
library(dplyr)
library(RCurl)

## Get the results for a specific term
scrape_term = function(search_term,npages){
  base_url = "http://scholar.google.com/scholar?"
  search_string = paste0("q=",paste0(strsplit(search_term," ")[[1]],collapse="+"))
  dat = data.frame(NA,nrow=10*npages,ncol=3)