Erreurs dans le test de code d'état http Batch en utilisant pour boucle dans r

Question

J'ai un df de ids x urls unique.

library (httr) 

for (i in (1:nrow(df))) { 
    resp <- httr::GET(df$url[i]) 
    httpcode[i] <- status_code(resp) 
    httpstatus[i] <- http_status(resp)$reason 
} 

Je veux (a) trouver le status_code pour chaque URL, (b) trouver le http_status pour chaque URL, et (c) les recracher dans de nouvelles colonnes dans le même df. Problèmes: 1. Dans le code ci-dessous, lorsque je remplace i par un numéro d'index réel (par exemple i = 1), le code fonctionne. Quand je l'ai mis dans une boucle, il me donne l'erreur suivante:

Error in curl::curl_fetch_memory(url, handle = handle) : 
    Couldn't resolve host name 

1. Comment puis-je faire httpcode et httpstatus convertir des objets dans de nouvelles colonnes dans le même df? Merci

Answer 1

out_df <- data.frame() 
for (i in df$url) { 
    print(i) 
    resp <- httr::GET(i) 
    httpcode <- status_code(resp) 
    httpstatus <- http_status(resp)$reason 
    row <- c(i, httpcode, httpstatus) 
    out_df <- rbind(out_df, row) 
} 

df <- merge(df, out_df, by = 'url', all.x = TRUE)