ab604

tweet_id,created_at,text,lang,reply_to_user,is_reply,ref_tweet_type,likes,retweets,impressions,bookmarks
1788571970495250933,2024-05-09T14:09:22.000Z,"@NadineDorries It’s because your party were elected on the basis that you would sort out immigration. You had the mandate, the power and public backing and your party did nothing but make it worse. Your party deserves to be obliterated. I feel for the genuine conservatives that you have.",en,457060718,TRUE,replied_to,0,0,0,0
1790113158096363570,2024-05-13T20:13:30.000Z,@MartinDaubney @GBNEWS Nothing to hide nothing to fear?,en,568143078,TRUE,replied_to,0,0,0,0
1790119569924775957,2024-05-13T20:38:58.000Z,"@darrengrimes_ It’s like Mad Max, the first film where there’s still people trying to live their lives but being terrorised by ruthless criminal motorcycle gangs as society collapses around them.",en,4691437897,TRUE,replied_to,0,0,0,0
1791128187004416098,2024-05-16T15:26:51.000Z,@tom_watson All waffle,en,14190551,TRUE,replied_to,0,0,0,0
1793316521596350531,202

ab604

# France map

Required reading: https://rud.is/books/30-day-map-challenge/ and https://geocompr.robinlovelace.net/

```{r load-libs}
knitr::opts_chunk$set(echo = TRUE)
library(sf)
library(raster)
library(ggthemes)
library(hrbrthemes)

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)