library(dplyr)
## 
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union
library(ggplot2)
library(rvest)
## Loading required package: xml2
library(stringr)
library(car)
## 
## Attaching package: 'car'
## The following object is masked from 'package:dplyr':
## 
##     recode
library(tm)
## Loading required package: NLP
## 
## Attaching package: 'NLP'
## The following object is masked from 'package:ggplot2':
## 
##     annotate
cat_loop <- read.csv("~/Telechargements/cat_loop.csv")
glimpse(cat_loop)
## Observations: 64
## Variables: 3
## $ ID          <fctr> 6142c501-8559-45f8-afff-9e7db69e5059, c13668ad-13...
## $ NAME        <fctr> Gud-Lyon, mas-org.Jimdo, Reconquetefrancaise jour...
## $ START_PAGES <fctr> https://gud-lyon.blogspot.fr , https://mas-org.ji...
levels(cat_loop$START_PAGES)
##  [1] "https://academiecatholiquedefrance.fr "               
##  [2] "https://actionfrancaise.net "                         
##  [3] "https://actionroyaliste.com"                          
##  [4] "https://alaindebenoist.com "                          
##  [5] "https://antigones.fr "                                
##  [6] "https://belle-et-rebelle.com "                        
##  [7] "https://bloc-identitaire.com"                         
##  [8] "https://caryatides.fr "                               
##  [9] "https://christianophobie.fr"                          
## [10] "https://civitas-institut.com "                        
## [11] "https://clubdelhorloge.fr "                           
## [12] "https://collectifmarianne.fr "                        
## [13] "https://defrancisation.com "                          
## [14] "https://dieudonne-en-tournee.com "                    
## [15] "https://dieudosphere.com "                            
## [16] "https://dominiquevenner.fr "                          
## [17] "https://egaliteetreconciliation.fr "                  
## [18] "https://france-catholique.fr "                        
## [19] "https://frontdespatriotes.blogspot.fr "               
## [20] "https://frontnational.com "                           
## [21] "https://generation-identitaire.com "                  
## [22] "https://gollnisch.com "                               
## [23] "https://gud-lyon.blogspot.fr "                        
## [24] "https://ichtus.fr "                                   
## [25] "https://islamisation.fr "                             
## [26] "https://jeanmarielepen.com "                          
## [27] "https://jeunes-cathos.fr "                            
## [28] "https://jeunesactifs-patriotes.fr "                   
## [29] "https://jourdecolere.com"                             
## [30] "https://laissezlesvivre.free.fr"                      
## [31] "https://lamanifpourtous.fr "                          
## [32] "https://lamanifpourtous22.com "                       
## [33] "https://lanuitauxinvalidespourleschretiensdorient.fr "
## [34] "https://les-non-alignes.fr "                          
## [35] "https://lespatriotes.net "                            
## [36] "https://libertepolitique.com"                         
## [37] "https://liguedefensejuive.com "                       
## [38] "https://liguedumidi.com "                             
## [39] "https://liguefrancilienne.com "                       
## [40] "https://m-n-r.fr "                                    
## [41] "https://manifpourtous.com "                           
## [42] "https://marine-le-pen-presidente-2017.com "           
## [43] "https://marine-le-pen.com "                           
## [44] "https://mas-org.jimdo.com "                           
## [45] "https://parti-de-la-france.fr "                       
## [46] "https://parti-nationaliste-francais.com "             
## [47] "https://partiantisioniste.com "                       
## [48] "https://rbmfrance.com "                               
## [49] "https://reconquetefrancaise.fr "                      
## [50] "https://renaissancecatholique.org "                   
## [51] "https://renaud-camus.net "                            
## [52] "https://renouveau-francais.com "                      
## [53] "https://resistancerepublicaine.eu "                   
## [54] "https://riposte-catholique.fr "                       
## [55] "https://ripostelaique.com "                           
## [56] "https://robertfaurisson.blogspot.fr "                 
## [57] "https://siel-souverainete.fr "                        
## [58] "https://sos-tout-petits.org "                         
## [59] "https://soschretiensdorient.fr "                      
## [60] "https://terreetpeuple.com "                           
## [61] "https://tous-pour-le-mariage.fr "                     
## [62] "https://u-p-r.fr "                                    
## [63] "https://vigilancehallal.com "                         
## [64] "https://zentropa.info "
x <- read_html("http://www.actionroyaliste.fr/")
n <- html_nodes(x, "p")

n
## {xml_nodeset (7)}
## [1] <p>S’il existe en français, pour s’adresser à autrui, deux pronoms p ...
## [2] <p>« Inutile d’invoquer je ne sais quel fatalisme ou quel déterminis ...
## [3] <p>« Louis, par la grâce de Dieu, Roi de France et de Navarre, à tou ...
## [4] <p>Notre pays est vendu, morceau par morceau, par les politiques, pr ...
## [5] <p>En 1271, le sultan des Mamelouks avait dépossédé les Francs de la ...
## [6] <p>On est loin des dépenses abusives et sans contrôles de nos « élit ...
## [7] <p>Le corps d’un prêtre ensanglanté au pied de l’autel, frappé en pl ...
text <- html_text(n, trim=TRUE)

text
## [1] "S’il existe en français, pour s’adresser à autrui, deux pronoms personnels de la deuxième personne, l’un au singulier, →"                                                                                                                                                                                                                 
## [2] "« Inutile d’invoquer je ne sais quel fatalisme ou quel déterminisme racial. A la France d’aujourd’hui, qui l’interroge, la →"                                                                                                                                                                                                             
## [3] "« Louis, par la grâce de Dieu, Roi de France et de Navarre, à tous ceux qui ces présentes lettres verront, salut. Dieu, qui élève les rois au trône de leur grandeur, non content de nous avoir donné l’esprit qu’il départ à tous les princes de la terre pour la conduite de leurs peuples, a →"                                        
## [4] "Notre pays est vendu, morceau par morceau, par les politiques, prêts à tout pour accéder au pouvoir. Nous vivons nos dernières années de « Français ». Le pire reste à venir pour les enfants d’aujourd’hui et du futur…Il faut que les citoyens de nos nations sachent que pour quelques bulletins de vote nos dirigeants sont prêts à →"
## [5] "En 1271, le sultan des Mamelouks avait dépossédé les Francs de la forteresse… Les volontaires français et syriens →"                                                                                                                                                                                                                      
## [6] "On est loin des dépenses abusives et sans contrôles de nos « élites » politiques républicaines en France ! Vivement →"                                                                                                                                                                                                                    
## [7] "Le corps d’un prêtre ensanglanté au pied de l’autel, frappé en pleine célébration, c’était pour moi une image →"
text2 <- as.list(text)
n_w1 <- sum(str_count(text2, "sultan"))

n_w1
## [1] 1