Merge pull request #37 from chrbknudsen/main

lidt videre

Author: chrbknudsen

R/grabs_lyrics.R

@@ -28,6 +28,8 @@ lyrics_from_url <- function(url){
 lyrics_til_oprensning <- lyrics_from_url(url)
 
 
+
+
 <span.*?>
 
   clipr::write_clip()

R/hent_lyrics.R

@@ -0,0 +1,43 @@
+vi har diskografien.csv.
+Den har vi fået ved rgenius::diskografien <- get_genius_artist_songs(9534)
+
+og den kan indlæses ved:
+disko <-   read_csv("data-raw/diskografien.csv")
+
+der er et sang-id.
+
+Det kan vi bruge til at hente metadata.
+
+response <- GET(url = str_glue("https://api.genius.com/songs/{song_id}"),
+                query = list(access_token = Sys.getenv('GENIUS_API_TOKEN')), quiet = TRUE)
+
+
+response %>% content()
+
+og i disse metadata vi også finde albumnavnet. Så det skal vi have trukket ud.
+det skal vi have gemt til en dataframe
+
+blandt disse meta data er der en relativ sti til genius-hjemmesiden
+eget_kald$response$song$path
+den kan vi lave til en absolut sti.
+paste0("https://genius.com",eget_kald$response$song$path)
+
+og så kan vi bruge
+lyrics_from_url <- function(url){
+  page <- read_html(url)
+  page %>% html_nodes("body") %>%
+    html_nodes("#application") %>%
+    html_nodes("#lyrics-root") %>%
+    html_nodes('[data-lyrics-container="true"]') %>%
+    as.character() %>%
+    str_remove_all(pattern = "<a href.*?>") %>%
+    str_remove_all(pattern = "<\\a>") %>%
+    str_remove_all(pattern = "<span.*?>") %>%
+    str_remove_all(pattern = "<\\span>") %>%
+    paste0(collapse = "\n") %>%
+    read_html() %>%
+    html_text2(preserve_nbsp = TRUE) %>%
+    str_split("\\n") %>%
+    unlist()}
+
+til at få teksten ud.

data-raw/udgivelser-wiki.R

@@ -211,7 +211,7 @@ library(spotifyr)
 hm <- spotifyr::get_artist_audio_features(artist = "David Bowie", authorization = get_spotify_access_token(client_id = hemmeligheder[["client_id"]],
                                                                                                      client_secret = hemmeligheder[["client_secret"]]))
 # og det betyder faktisk at vi har størstedelen af data på bowie sangene nu.
-
+hemmeligheder
 install.packages("spotifyr")
 view(hm)
 library(tidyverse)