¿Mis conciudadanos no tienen wifi?

A alguien leí el otro día que decía que en un bar de carretera habían colocado un cartel diciendo: «Hemos quitado el periódico y hemos puesto wifi». Viene esto a cuento de

library(rvest)
library(tm)
library(wordcloud)
 
res <- sapply(1:17, function(i){
  url <- paste("https://decide.madrid.es/participatory_budget/investment_projects?geozone=all&page=",
               i, "&random_seed=0.28", sep = "")
  tmp <- html_nodes(read_html(url), 
             xpath = "//div[starts-with(@id, 'spending_proposal')]/div/div/div[1]/div/h3/a/text()")
 
  as.character(tmp)
})
 
tmp <- unlist(res)
 
tmp <- Corpus(VectorSource(tmp))
tmp <- tm_map(tmp, stripWhitespace)
tmp <- tm_map(tmp, content_transformer(tolower))
tmp <- tm_map(tmp, removeWords, stopwords("spanish"))
 
wordcloud(tmp, scale=c(5,0.5), max.words=100, 
          random.order=FALSE, 
          rot.per=0.35, use.r.layout=FALSE, 
          colors=brewer.pal(8, "Dark2"))

que hace lo que dice, es decir,

presupuestos_participativos

a partir de los títulos de las propuestas de los presupuestos participativos del ayuntamieto de Madrid.

¡Bibliotecas! Conciudadanos míos, ¿no tenéis una maldita wifi a mano? Que si por mí fuese, haría como el hostelero de carretera: fuera bibliotecas y a leer a Gerónimo Stilton a la @½#@ wifi.