Construire une fonction
Vous cherchez toujours à perfectionner vos outils de web scraping pour être aussi efficace que possible dans votre travail d’analyste de données au sein d’une agence web.
Dans cet exercice, vous allez rendre la fonction d’extraction de l’exercice précédent un peu plus stricte : si le code renvoyé par l’extracteur de statut n’est pas compris entre 200 et 203, la fonction renverra une valeur manquante (NA). Dans le cas contraire, le code de statut sera renvoyé.
purrr et httr ont été chargés pour vous.
Cet exercice fait partie du cours
<cours>Programmation fonctionnelle intermédiaire avec purrr</cours>Instructions de l’exercice
Négativisez l’opérateur
%in%, qui sert à tester si l’élément de gauche appartient à l’élément de droite.Composez une fonction
extract_status(), qui sera une combinaison deGET()etstatus_code().Complétez la fonction fournie : le code de statut de l’
urldoit être extrait et affecté à une variablecode. Ensuite, si cecoden’est pas dans200:203, une valeur manquante sera renvoyée. Sinon, le code de statut est renvoyé.
Exercice interactif pratique
Essayez cet exercice en complétant ce code d’exemple.
# Negate the %in% function
`%not_in%` <- ___(`%in%`)
# Compose a status extractor
extract_status <- ___(___, ___)
# Complete the function definition
strict_code <- function(url) {
# Extract the status of the URL
code <- ___(___)
# If code is not in the acceptable range ...
if (code ___ 200:203) {
# then return NA
return(___)
}
code
}