함수 만들기
여러분은 웹 에이전시의 데이터 분석가로서 웹 스크레이핑 작업을 최대한 효율적으로 하기 위해 도구를 계속 다듬고 있어요.
이 연습 문제에서는 이전 문제의 추출기 함수를 조금 더 엄격하게 만들겠습니다. 상태 추출기가 반환한 코드가 200에서 203 사이가 아니면, 함수는 결측값(NA)을 반환합니다. 그렇지 않으면 상태 코드를 반환합니다.
purrr와 httr 패키지는 미리 로드되어 있습니다.
이 연습은 강의의 일부입니다
purrr로 배우는 중급 함수형 프로그래밍
연습 안내
왼쪽의 원소가 오른쪽의 원소 집합에 포함되는지 검사하는
%in%연산자를 부정한 버전으로 만드세요.GET()과status_code()를 조합한extract_status()함수를 합성하세요.주어진 함수를 완성하세요.
url의 상태 코드를 추출해code변수에 저장하세요. 그런 다음 이code가200:203에 없으면 결측값을 반환하고, 그렇지 않으면 상태 코드를 반환하세요.
실습형 인터랙티브 연습
이 예제를 이 샘플 코드를 완성하여 풀어보세요.
# 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
}