401 Unauthorized error when trying to get song lyrics

[dakinidw]

I've downloaded the latest version of the package to this day, created a user and registered a new app on the developers page for Genius. I have a client ID, password and access token. However, after loading the library, calling genius_token(T) and inputing my access token, whenever I try to pull some song lyrics I get an error saying "Error in get_song(song_id = 3039923) : Unauthorized (HTTP 401)."

I tried setting the API token directly with Sys.setenv(GENIUS_API_TOKEN = mytoken) or including the argument access_token = genius_token() in all my get requests, to no avail. I'm not really sure what to do from here within the app since there's no scopes option to add in the genius_token command. Thanks for all the help and hope this is useful to someone since I haven't found anyone with the same issue (some dude reported it and then claimed it solved spontaneously so no luck getting info there)

[WilliamCipolli]

I'm having the same issue.

[dustinstoltz]

I am also getting a 401 error. This appears to be related to the internal function:

genius_get <- function(url, access_token) {
  GET(url = url, add_headers(
    Authorization = paste0("Bearer ", access_token)
    ))

This fixes it for me:

genius_get <- function(url, access_token) {
  httr::GET(paste0(url, "?access_token=", access_token))
}

[aramillar]

I have the same issue and sadly even after

genius_get <- function(url, access_token) { httr::GET(paste0(url, "?access_token=", access_token)) } assignInNamespace("genius_get", genius_get, "geniusr")

it does not work for me. I still get the error

Fehler in get_artist_songs(artist_id, sort, include_features, access_token) :
Unauthorized (HTTP 401).

[skpai3]

I have the same issue and sadly even after

genius_get <- function(url, access_token) { httr::GET(paste0(url, "?access_token=", access_token)) } assignInNamespace("genius_get", genius_get, "geniusr")

it does not work for me. I still get the error

Fehler in get_artist_songs(artist_id, sort, include_features, access_token) :
Unauthorized (HTTP 401).

The full way to fix it is to run:
assignInNamespace("genius_get", function(url, access_token) httr::GET(paste0(url, "?access_token=", access_token)), ns = "geniusr", envir = asNamespace("geniusr"))