Vytvoř funkci
V předchozím cvičení jsme viděli, jak lze pomocí safely() identifikovat nedostupné URL adresy: napsali jsme krátký proces, který volal bezpečnou verzi funkce read_lines() a vracel seznam $errors.
V tomto cvičení zkusíme jiný přístup – nebudeme se zaměřovat jen na chyby. Místo toho, abychom mapovali bezpečnou funkci a extrahovali prvky "error" z výsledků, napíšeme pomocnou funkci, která okamžitě použije discard() k odstranění hodnot NULL z výstupu safe_read().
Tímto způsobem, místo extrahování části $error nebo $result z výstupu, snadno poznáme, jestli jsou prvky dostupné (obsah se vrátí v $results), nebo ne (pak se chyba vrátí v $error).
Vektor urls je už připravený.
Toto cvičení je součástí kurzu
Intermediate Functional Programming with purrr
Pokyny k cvičení
Vytvoř bezpečnou verzi funkce
read_lines().Vytvoř funkci s názvem
safe_read_discard(), která spustí bezpečnou verziread_lines()a pomocídiscard()odstraní hodnotyNULL.Namapuj tuto funkci na připravený seznam URL adres.
Interaktivní cvičení na vyzkoušení si v praxi
Vyzkoušejte si toto cvičení dokončením tohoto ukázkového kódu.
# Create a safe version of read_lines()
safe_read <- ___
# Code a function that discard() the NULL from safe_read()
safe_read_discard <- function(url){
___(___) %>%
___(is.null)
}
# Map this function on the url list
res <- ___(urls, ___)