构建一个函数
您仍在完善用于网页抓取的工具，以便在您作为一家网络代理的数据分析师的工作中尽可能高效。
在本练习中，您将把上一个练习中的提取函数变得更严格一些：如果状态提取器返回的代码不在 200 到 203 之间，则函数将返回缺失值（NA）。否则，返回状态码。
已为您加载 purrr 和 httr。
本练习是课程的一部分
使用 purrr 的函数式编程进阶
练习说明
取反
%in%运算符，该运算符用于测试左侧元素是否包含在右侧元素中。组合一个
extract_status()函数，它应为GET()和status_code()的组合。完成给定的函数：应提取
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
}