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)

get_history

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)


drew-walkerr/musichistoRy documentation built on May 29, 2021, 3:23 a.m.