Bygg en funktion
Du arbetar fortfarande med att förfina dina verktyg för webbskrapning för att jobba så effektivt som möjligt i din roll som dataanalytiker på en webbyrå.
I den här övningen gör du extraheringsfunktionen från föregående övning lite striktare: om statuskoden som returneras av statusextraktorn inte är mellan 200 och 203 returnerar funktionen ett saknat värde (NA). I annat fall returneras statuskoden.
purrr och httr har laddats åt dig.
Den här övningen är en del av kursen
Funktionell programmering på mellannivå med purrr
Övningsinstruktioner
Negera
%in%-operatorn, som används för att testa om elementet till vänster finns i elementet till höger.Komponera en
extract_status()-funktion som kombinerarGET()ochstatus_code().Komplettera den givna funktionen: statuskoden för
urlska extraheras och tilldelas variabelncode. Omcodeinte finns i200:203returneras ett saknat värde. Annars returneras statuskoden.
Interaktiv övning med praktiskt arbete
Testa den här övningen genom att slutföra den här exempelkoden.
# 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
}