GET() से स्टेटस कोड निकालना
इस आख़िरी अभ्यास के लिए, हम read_lines() फंक्शन से httr के GET() फंक्शन पर शिफ्ट करेंगे.
सबसे पहले हम GET() का एक possibly() वर्शन बनाएँगे, ताकि यह जाँच सकें कि क्या आपकी कुछ URLs एरर दे रही हैं. अगर URL एक्सेस हो जाती है, तो एक कनेक्शन ऑब्जेक्ट रिटर्न होगा. उसके अंदर आपको "status_code" नाम का एलिमेंट मिलेगा.
रिज़ल्ट्स पर फ़िलहाल ध्यान न दें. बस यह याद रखें कि अगर GET() फंक्शन एरर रिटर्न करता है, तो उसकी वजह है कि URL उपलब्ध नहीं है. जो स्टेटस कोड नंबर हम रिटर्न कर रहे हैं, वह वेब जार्गन जैसा लग सकता है, लेकिन इसके बारे में हम अगले चैप्टर में विस्तार से बात करेंगे. अभी के लिए बस याद रखिए कि 200 का मतलब है सब कुछ अपेक्षा के अनुसार हुआ.
urls वेक्टर आपके वर्कस्पेस में उपलब्ध है, और purrr तथा httr आपके लिए लोड किए जा चुके हैं.
यह अभ्यास पाठ्यक्रम का हिस्सा है
इंटरमीडिएट फ़ंक्शनल प्रोग्रामिंग विथ purrr
अभ्यास निर्देश
ऐसा
GET()वर्शन बनाएँ जो एरर की स्थिति मेंNULLरिटर्न करे.रिज़ल्ट्स के नाम सेट करें.
NULLको हटा दें.हर एलिमेंट का
"status_code"एक्सट्रैक्ट करें.
इंटरैक्टिव व्यावहारिक अभ्यास
इस अभ्यास को इस नमूना कोड को पूरा करके आज़माएँ।
url_tester <- function(url_list){
url_list %>%
# Map a version of GET() that would otherwise return NULL
map( ___(GET, ___) ) %>%
# Set the names of the result
___( url_list ) %>%
# Remove the NULL
___() %>%
# Extract all the "status_code" elements
map(___)
}
# Try this function on the urls object
___(urls)