Construa uma função
Você ainda está tentando aperfeiçoar suas ferramentas de web scraping para ser o mais eficiente possível no seu trabalho como analista de dados em uma agência web.
Neste exercício, você vai deixar a função extratora do exercício anterior um pouco mais rígida: se o código retornado pelo extrator de status não estiver entre 200 e 203, a função retornará um valor ausente (NA). No outro caso, o código de status será retornado.
purrr e httr já foram carregados para você.
Este exercicio faz parte do curso
Programação Funcional Intermediária com purrr
Instruções do exercicio
Negue o operador
%in%, que é usado para testar se o elemento à esquerda está dentro do elemento à direita.Faça a composição de uma função
extract_status(), que será uma combinação deGET()estatus_code().Complete a função fornecida: o código de status da
urldeve ser extraído e atribuído à variávelcode. Em seguida, se essecodenão estiver em200:203, um valor ausente será retornado. Caso contrário, o código de status é retornado.
exercicio interativo prático
Tente este exercicio completando este código de exemplo.
# 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
}