![\"http:\/\/www.casablanca-bourse.co.ma\/bourseweb\/Negociation-Historique.aspx?Cat=24&IdLink=302\"](\"https:\/\/www.ephiquant.com\/wp-content\/uploads\/2016\/11\/sitebourse-de-Casablanca.png\")
<\/a>Capture d’\u00e9cran du site de la bourse de Casablanca<\/p><\/div>\n
Malheureusement ou heureusement pour nous, s’il existe des packages comme le fameux\u00a0quantmod <\/span>tr\u00e8s\u00a0utiliser par les quants pour t\u00e9l\u00e9charger notamment avec la fonction getSymbols()<\/span>, les cours boursiers depuis la plateforme de Yahoofinance<\/strong> ou Googlefinance<\/strong>…etc, il n’en existe pas pour la bourse de Casablanca et nous allons \u00e0 travers cet tutoriel\u00a0concevoir une fonction qui pourra :<\/p>\n Selenium<\/a>, est un projet visant \u00e0 automatiser la navigation web et en l’occurence sa version R, nomm\u00e9e RSelenium permet de naviguer via des commandes R. Bien que l’int\u00e9r\u00eat de ce package va bien au del\u00e0 de la simple navigation web, nous allons l’utiliser pour communiquer avec notre site cible.<\/p>\n Ainsi, pour fonctionner, nous avons besoin d’un navigateur web firefox, Google Chrome…etc. Mais malheureusement ces derniers ne fonctionnent souvent pas. Mais nous avons mieux, nous allons opter pour une navigation fantome ( dans le sens o\u00f9 tout se passera en background et nous ne verrons rien apparaitre pendant la navigation autrement ce serait emb\u00eatant). Pour ce faire, nous allons utiliser le\u00a0navigateur PhantomJS<\/a>, on peut le t\u00e9l\u00e9charger ici<\/a>. Apr\u00e8s t\u00e9l\u00e9chargement, il suffit de d\u00e9compresser le dossier dans un endroit facilement accessible. Ensuite on aura besoin du chemin d’acc\u00e8s(C:\/Users\/danam\/Documents\/phantomjs-2.1.1-windows\/bin\/phantomjs.exe<\/span>) \u00e0 l\u2019ex\u00e9cutable\u00a0phantomjs.exe<\/em> log\u00e9 dans le dossier bin<\/span>\u00a0.<\/p>\n Une fois l’\u00e9l\u00e9ment liste d\u00e9roulante retrouver, il reste \u00e0 lui envoyer le nom de la soci\u00e9t\u00e9 “ALLIANCE” (abr\u00e9g\u00e9 “ALLI”\u00a0par ce que c’est une liste d\u00e9roulante les premi\u00e8res lettres suffisent pour faire la s\u00e9lection mais il faudrait s’assurer qu’aucun autre nom ne commence pas par “ALLI” sinon il faudrait \u00e9crire le nom en toute lettre) \u00e0 travers la fonction\u00a0sendKeysToElement(). <\/span>En aper\u00e7u nous avons :<\/p>\n Maintenant que l’on a compris le principe, on peut r\u00e9it\u00e9rer le processus aux autres \u00e9l\u00e9ments. Ici, au lieu sp\u00e9cifier directement la p\u00e9riode de l’historique dont nous avons besoin(option 1 en rouge) nous allons exploiter la limitation des donn\u00e9es \u00e0 un historique de 3 ans seulement en notre faveur. Nous allons donc choisir de t\u00e9l\u00e9charger les donnes sur 3 ans(voir illustration pas trop top ci-dessous) : Nous allons d’abord chercher les id respectifs du bouton radio “Par mensualit\u00e9”, de la liste d\u00e9roulante et du bouton “Valider”. Ensuite nous cliquer sur le bouton radio et s\u00e9lectionner “3 ans” dans la liste d\u00e9roulante \u00e0 droite et en fin valider en envoyant la commande de la touche “Entrer” au bouton “valider”( un peu comme quand l’on fini de remplir un formulaire on tape “Entrer” pour valider le tout) :<\/p>\n Nous allons d’abord retrouver la syntaxe XPath(chemin de localisation) du tableau en cliquant droit sur ce dernier et ensuite sur son code source (voir image ci-dessous) on copie le XPath (encercl\u00e9 en rouge).C’est avec ce chemin de localisation de notre tableau que nous allons extraire le table de la page enti\u00e8re. Heureusement ce chemin ne change pas( \u00e0 moins ce que le site soit compl\u00e8tement refait). Ce chemin est ensuite pass\u00e9 \u00e0 la fonction getNodeSet()<\/span> qui extrait un n\u0153ud d’une page XML(D’un point de vue formel, un document XML est un arbre, articulant diff\u00e9rents types de n\u0153uds (texte, \u00e9l\u00e9ments, attributs, commentaires\u2026))<\/a>.<\/p>\n Nous avons r\u00e9duit la page \u00e0 son n\u0153ud o\u00f9 se trouve le tableau, maintenant, nous allons extraire notre tableau vers un objet data.frame. Mais d’abord voyons le structure de l’objet node :<\/strong><\/p>\n On voit bien que c’est une liste et notre tableau est contenu dans le dernier \u00e9l\u00e9ment du tableau 3(en effet en affichant un par un chaque \u00e9l\u00e9ment du tableau vous verrez que les 2 premiers sont les ent\u00eates qui pr\u00e9c\u00e8dent le tableau). L\u2019extraction du tableau vers le data.frame<\/span>\u00a0passe par la fonction readHTMLTable()<\/span>:<\/p>\n Erreka enfin quelque chose que nous de lisible !<\/strong><\/p>\n Comme on peut le voir notre data.frame<\/span> est “sale”, les valeurs ne sont pas reconnaissables sous R, le format de la date non plus et les noms des colonnes ne sont pas au bon endroit …etc.<\/p>\n \n
Etape I : RSelenium, package pour la navigation web<\/h3>\n
require(RSelenium)\r\ne <- list(phantomjs.binary.path = 'C:\/Users\/danam\/Documents\/phantomjs-2.1.1-windows\/bin\/phantomjs.exe')\r\nremDr <- remoteDriver(browserName = 'phantomjs', extraCapabilities = e)\r\nremDr
![\"open(silent = TRUE)](\"https:\/\/www.ephiquant.com\/wp-content\/ql-cache\/quicklatex.com-25842a46d90b983956bd2fc114a482d7_l3.png\" "\\"Rendered")
navigate(url)\r\nremDr![\"screenshot(display = TRUE)</pre>](\"https:\/\/www.ephiquant.com\/wp-content\/ql-cache\/quicklatex.com-c7c725d1cf1f2c5e568c46fe99fd81ee_l3.png\" "\\"Rendered")
HistValeur1![\"DDValeur" id="HistoriqueNegociation1_HistValeur1_DDValeur" class="input" style="width:256px;">](\"https:\/\/www.ephiquant.com\/wp-content\/ql-cache\/quicklatex.com-bbbd21bdf8e951bdfd0a100931f03f0f_l3.png\" "\\"Rendered")
findElement(using = 'id',\r\n value='HistoriqueNegociation1_HistValeur1_DDValeur')\r\n comboElm![\"sendKeysToElement(list('ALLI'))](\"https:\/\/www.ephiquant.com\/wp-content\/ql-cache\/quicklatex.com-36767c6ddceeba2db420bd4956359094_l3.png\" "\\"Rendered")
screenshot(display = TRUE) # obtenir un aper\u00e7u<\/pre>\n![\"tmpscreenshot1\"](\"https:\/\/www.ephiquant.com\/wp-content\/uploads\/2016\/11\/tmpScreenShot1.png\")
<\/p>\n![\"tmpscreenshot2\"](\"https:\/\/www.ephiquant.com\/wp-content\/uploads\/2016\/11\/tmpScreenShot2.png\")
<\/p>\nradioElm <- remDr
![\"findElement(using = 'id',](\"https:\/\/www.ephiquant.com\/wp-content\/ql-cache\/quicklatex.com-5fb66f1b6758fe27d83e7e7c12dce545_l3.png\" "\\"Rendered")
click()\r\ncomoElmdate <- remDr![\"findElement(using = 'id' ,](\"https:\/\/www.ephiquant.com\/wp-content\/ql-cache\/quicklatex.com-850a2e1f857b9e5bb509e8d31c93ac1e_l3.png\" "\\"Rendered")
sendKeysToElement(list('3 ans'))\r\nsubmitbn <- remDr![\"findElement(using = 'id',](\"https:\/\/www.ephiquant.com\/wp-content\/ql-cache\/quicklatex.com-4bac876e9a0c521a833d1cdb2849bc97_l3.png\" "\\"Rendered")
sendKeysToElement(list(key = 'enter'))\r\nremDr![\"screenshot(display = TRUE)</pre>](\"https:\/\/www.ephiquant.com\/wp-content\/ql-cache\/quicklatex.com-1c0777be4b869c6269bc837311d00d60_l3.png\" "\\"Rendered")
getPageSource()\r\nrequire(XML)\r\ndoc <-htmlParse(unlist(page))\r\nnode <- getNodeSet(doc, path = '\/\/*[@id=\"arial11bleu\"]')<\/pre>\n![\"tmpscreenshot4\"](\"https:\/\/www.ephiquant.com\/wp-content\/uploads\/2016\/11\/tmpScreenShot4.png\")
<\/p>\n> str(node)\r\nList of 3\r\n
![\":Classes 'XMLInternalElementNode', 'XMLInternalNode', 'XMLAbstractNode' <externalptr>\"](\"https:\/\/www.ephiquant.com\/wp-content\/ql-cache\/quicklatex.com-575108696796ee9da63df5cd7d7ddbf3_l3.png\" "\\"Rendered")
:Classes 'XMLInternalElementNode', 'XMLInternalNode', 'XMLAbstractNode' <externalptr> \r\n $ :Classes 'XMLInternalElementNode', 'XMLInternalNode', 'XMLAbstractNode' <externalptr> \r\n - attr(*, \"class\")= chr \"XMLNodeSet\"<\/pre>\n> raw_data.frame <- readHTMLTable(node[[3]], stringsAsFactor = F)\r\n> raw_data.frame\r\n V1 V2 V3 V4 V5 V6 V7 V8 V9 V10 V11 V12\r\n1 \r\n2 S\u00c3<83>\u00c2\u00a9ance D\u00c3<83>\u00c2\u00a9signation Premier Cours Dernier Cours + haut du jours + bas du jour\r\n3 \r\n4 16\/11\/2016 ALLIANCES 88,42 87,50 89,00 86,50\r\n5 15\/11\/2016 ALLIANCES 90,00 89,10 90,00 88,00\r\n6 14\/11\/2016 ALLIANCES 90,20 90,00 92,00 90,00\r\n7 11\/11\/2016 ALLIANCES 90,24 90,00 90,50 89,00\r\n8 10\/11\/2016 ALLIANCES 90,00 90,27 91,99 89,11\r\n9 09\/11\/2016 ALLIANCES 90,10 90,50 91,88 90,10\r\n10 08\/11\/2016 ALLIANCES 90,00 90,01 92,00 90,00\r\n11 07\/11\/2016 ALLIANCES 89,00 90,00 90,40 88,10<\/pre>\n
Etape IV: Conversion\u00a0des donn\u00e9es et formatage\u00a0en s\u00e9rie temporelle xts<\/span><\/strong> :<\/h3>\n