オフィスに戻って
あなたは引き続きウェブ代理店のデータアナリストとして働いており、ウェブスクレイピングを依頼されました。前の章で分析を開始した、解析対象のURLリストが渡されています。
この作業は今後も繰り返し発生すると予想されます。数週間後にまた同じ依頼が来るのは間違いないでしょう。将来の自分の作業を楽にするため、今日はクリーンなコードを書くことにしました。あとから見直しやすくするためです。
まずは、前の章で見た httr の2つの関数、ウェブページを取得する GET() とステータスコードを取り出す status_code() を組み合わせて、ステータスコード抽出用の関数を作りましょう。
urls ベクトルはワークスペースに引き続き用意されています。到達可能なURLのみを残してあります。
この演習はコースの一部です
purrr で学ぶ中級関数型プログラミング
演習の手順
purrrとhttrを読み込みます。GET()とstatus_code()を使って、ステータス抽出用の関数を合成します。この新しい関数を "https://www.thinkr.fr" と "https://en.wikipedia.org" に対して試します。
この関数をベクトル
urlsに直接 map します。
実践的なインタラクティブ演習
このサンプルコードを完成させて、この演習に挑戦してみましょう。
# Launch purrr and httr
# Compose a status extractor
status_extract <- ___(___, ___)
# Try with "https://thinkr.fr" & "https://en.wikipedia.org"
___("https://thinkr.fr")
___("https://en.wikipedia.org")
# Map it on the urls vector, return a vector of numbers
___(urls, ___)