update

datasets/billionaires/.Rhistory

@@ -38,3 +38,12 @@ table$value[i] <- as.numeric(gsub(",", ".", val))
 }
 View(table)
 write.csv(table,"billionaires.csv")
+# LIBRARY
+library(rvest)
+library(stringr)
+url <- "https://www.forbes.fr/classements/classement-forbes-2021-des-milliardaires-lincroyable-annee-de-tous-les-records-pour-jeff-bezos-elon-musk-bernard-arnault"
+webpage <- read_html(x = url)
+l <- webpage %>% html_nodes(".table") %>% html_table(header = TRUE)
+table <- l[[1]]
+l <- webpage %>% html_nodes(".table") %>% html_table(header = TRUE)
+View(l)

datasets/billionaires/.~lock.billionaires_2021.ods#

+Nicolas Lambert,nlambert,Piotr,07.04.2021 11:00,file:///home/nlambert/.config/libreoffice/4;
\ No newline at end of file

datasets/billionaires/billionaires_2021.csv

@@ -10,7 +10,7 @@ Larry Page,"$91,50",USA,Google,91.5,Palo Alto,"37.44281816353482, -122.140664810
 Sergey Brin,"$89,00",USA,Google,89,Palo Alto,"37.44281816353482, -122.14066481072872"
 Mukesh Ambani,"$84,50",Inde,Reliance Industries,84.5,Mumbai,"19.071769177117588, 72.87087524462835"
 Amancio Ortega,"$77,00",Espagne,Zara,77,La Corogne,"43.36385991802052, -8.411309249735694"
-Françoise Bettencourt-Meyers,"$73,60",France,L'Oréal,73.6,Neuilly-sur-Seine,"48.85791733169418, 2.3395047761168026"
+Françoise Bettencourt,"$73,60",France,L'Oréal,73.6,Neuilly-sur-Seine,"48.85791733169418, 2.3395047761168026"
 Zhong Shanshan,"$68,90",Chine,Nongfu Spring,68.9,Hangzhou,"30.215517690821194, 120.21370224069622"
 Steve Ballmer,"$68,70",USA,Microsoft,68.7,Détroit,"42.318956205942584, -83.03887258794533"
 Ma Huateng,"$65,80",Chine,Tencent,65.8,Shenzhen,"22.55002535342435, 113.89319381763224"