7
chartlyrics APIから歌詞を取得しようとしています。ループの中では動作しませんが、Rの関数を記述します。私はfollwingエラーを取得するcurl :: curl_fetch_memory（url、handle = handle）でエラーが発生しました：ピアからデータを受け取ったときにエラーが発生しました
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
しかし、私の機能は、ループ内
for (ii in 1:2){
names <- c(df$artist[ii], df$song[ii])
print(names)
make.querrye(names)
}
を動作しません：
Error in curl::curl_fetch_memory(url, handle = handle) : Failure when receiving data from the peer
あなたはプロキシの背後にいますか？ – nachti
申し訳ありませんが、私は今日あなたのコメントを見ました。実際に私はあなたの質問については分かりません。本当に古い質問ですが、今私はこれに取り組んでいません。質問を終わらせます。この長い期間、私は似たようなことをしている他の人を見てきました。私は解決策はリクエストの間に時間を置くことですが、これについてはわかりません。とにかく、あなたの答えをありがとう – pjperez