diff --git a/R/lyrics.R b/R/lyrics.R index 7fc1eea..a3ea211 100644 --- a/R/lyrics.R +++ b/R/lyrics.R @@ -10,8 +10,9 @@ get_lyrics <- function(session) { html_text(trim = TRUE) artist <- session %>% - html_nodes(xpath = '//a[contains(@class, "SongHeaderdesktop__Artist")]') %>% + html_nodes(xpath = '//span[contains(@Class, "PortalTooltip__Container")]') %>% html_text(trim = TRUE) + artist <- artist[1] # ensure line breaks are preserved correctly xml_find_all(lyrics, ".//br") %>% xml_add_sibling("p", "\n")