我正在尝试从
chartlyrics API获取歌词.我编写了一个可以工作但不在循环内的R函数.我的脚本是:
library(httr) library(RCurl) library(XML) df <- data.frame(artist = c('Led Zeppellin','Adele'),song = c('Rock´n roll','Hello'),stringsAsFactors = F) make.querye <- function(xx) { names_ok <- gsub(" ","&",xx) names_ok2 <- paste("\'",names_ok,"\'",sep = '') querye <- paste("http://api.chartlyrics.com/apiv1.asmx/SearchLyricDirect?artist=",names_ok[1],"&song=",names_ok[2],sep='') data <- GET(querye) 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.querye(names) #- it works names <- c(df$artist[2],df$song[2]) make.querye(names) #- it also works
但是我的函数在循环中不起作用
for (ii in 1:2){ names <- c(df$artist[ii],df$song[ii]) print(names) make.querye(names) }
我收到以下错误:
Error in curl::curl_fetch_memory(url,handle = handle) : Failure when receiving data from the peer
解决方法
原文地址:https://www.jb51.cc/linux/394987.html
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。