Créer une fonction
Vous cherchez toujours à peaufiner vos outils d'exploration de sites Web afin d'être le plus efficace possible dans votre travail d'analyste de données pour une agence web.
Dans cet exercice, vous rendrez la fonction d'extraction de l'exercice précédent un peu plus stricte : si le code retourné par l'extracteur d'état n'est pas compris entre 200 et 203, la fonction retournera une valeur manquante (NA). Dans l'autre cas, le code d'état sera retourné.
purrr et httr ont été chargés pour vous.
Cette activité fait partie du cours
Programmation fonctionnelle intermédiaire avec purrr
Instructions de l’exercice
Négatifiez l'opérateur
%in%, qui sert à vérifier si l'élément de gauche se trouve dans l'élément de droite.Composez une fonction
extract_status(), qui sera une combinaison deGET()etstatus_code().Complétez la fonction fournie : le code d'état de l'
urldoit être extrait et affecté à une variablecode. Ensuite, si cecoden'est pas dans200:203, une valeur manquante sera retournée. Sinon, le code d'état est retourné.
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
}