7
Sto cercando di ottenere i testi dallo chartlyrics API. Scrivo una funzione R che funziona ma non all'interno di un ciclo. Il mio script è:Errore in curl :: curl_fetch_memory (url, handle = handle): errore durante la ricezione di dati dal peer
library(httr)
library(RCurl)
library(XML)
df <- data.frame(artist = c('Led Zeppellin', 'Adele'), song = c('Rock´n roll', 'Hello'), stringsAsFactors = F)
make.querrye <- function(xx) {
names_ok <- gsub(" ", "&", xx)
names_ok2 <- paste("\'", names_ok, "\'", sep = '')
querrye <- paste("http://api.chartlyrics.com/apiv1.asmx/SearchLyricDirect?artist=", names_ok[1],"&song=", names_ok[2], sep='')
data <- GET(querrye)
aa <- content(data, "text")
doc <- htmlParse(aa, asText=TRUE)
plain.text <- xpathSApply(doc, "//lyric//text()[not(ancestor::script)][not(ancestor::style)][not(ancestor::noscript)][not(ancestor::form)]", xmlValue)
if (length(plain.text)==0) {
plain.text2 <- 'Lyrics not found'
} else {
plain.text2 <- iconv(plain.text, from = "UTF-8", to = "latin1", sub = NA, mark = TRUE, toRaw = FALSE)
}
return(plain.text2)
}
names <- c(df$artist[1], df$song[1])
make.querrye(names) #- it works
names <- c(df$artist[2], df$song[2])
make.querrye(names) #- it also works
Ma la mia funzione non è utilizzabile all'interno di un ciclo
for (ii in 1:2){
names <- c(df$artist[ii], df$song[ii])
print(names)
make.querrye(names)
}
ottengo l'errore follwing:
Error in curl::curl_fetch_memory(url, handle = handle) : Failure when receiving data from the peer
sei dietro un proxy? – nachti
Scusa, ho visto oggi il tuo commento. In effetti non sono sicuro della tua domanda. È una domanda molto vecchia e ora non ci sto lavorando, quindi chiuderò la domanda (se posso perché non l'ho mai fatto prima). In questo lungo periodo ho visto altri fare una cosa simile e ho pensato che la soluzione fosse di passare un po 'di tempo tra la richiesta, ma non ne sono sicuro. Comunque, grazie per la tua risposta – pjperez