knitr::opts_chunk$set(echo = TRUE) library(devtools) #devtools::install_github('charlie86/spotifyr') library(spotifyr) library(tidyverse) library(genius) #devtools::install_github("drew-walkerr/musichistoRy") library(musichistoRy) library(tictoc)
Pulls your last.fm scrobble history using the scrobbler package. This gets a dataframe of your music listening history with artist, song, timestamp, amd musicbrainz id.
tic() myhistory <- get_history("thedrewwalker") toc()
tic() myaudiofeatures <- get_history_audio_features(myhistory,drew) toc()
myhistory_snip <- myhistory %>% head(n=100) tic() mylyrics <- myhistory_snip %>% add_genius(artist, song_title, type = "track") toc() head(myhistory)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.