未找到(HTTP 404)在使用“`genius`”包获取歌词时出错

Question

我创建了一个数据集，它包含了甲壳虫乐队的所有原创歌曲。我想得到所有歌曲的歌词使用genius软件包。我使用下面的代码获得歌词，但抛出一个错误。

map(beatles_songs$song, ~ genius_lyrics("The Beatles", ., "simple"))

Error in read_xml.response(x$response, ..., as_html = as_html) : 
  Not Found (HTTP 404).
In addition: Warning message:
In request_GET(session, url) : Not Found (HTTP 404).

我认为这可能是因为列表中的歌曲名称与genius.com中的歌曲不匹配，但我不知道如何检查。那么，我该怎么做才能同时得到所有歌曲的歌词呢？

Answer 1

purrr包有一个数字函数，用于处理警告和错误。我建议如下所示，灵感来自这个例子

genius_lyrics_s <- safely(genius::genius_lyrics)

beatles_songs <- tibble(song = c("Mr. Moonlight", "She Loves You", "Under my Thumb", "Octopus's Garden"))
map(beatles_songs$song, ~ genius_lyrics_s("The Beatles", ., "simple")) %>% 
map("result") %>%
  compact()

Answer 2

在您的例子中，获得歌曲结果的最好方法是使用add_genius()。

beatles %>%
  add_genius("The Beatles", song)

由于这个原因，天才包具有possible_lyrics()和possible_album()的功能。下次试试吧！