Using the R script in PowerBI to connect to spotify via Rspotify Package - issue with OAuth

Hey,

I wonder if anyone can help

I am trying to run a function which leverages the RSpotify package. It works with no problems within R studio, however, it seems to have issue authorising when I try to run it in the PowerBI R scripter. I wonder if anyone has had a similar issue or has any suggestions?

Error Message: R script error. Error in httpuv::startServer(use$host, use$port, list(call = listen)) : Failed to create server Calls: Check_Genre ... init_oauth2.0 -> oauth_authorize -> oauth_listener -> Execution halted

My Function

ArtistName <- dataset$ArtistName[1] library(devtools) library(Rspotify)

Check_Genre <- function(ArtistName) {

   ClientID <- "********************"    Client_Secret <- "********************"
    keys <- spotifyOAuth("RSpotify_Project", ClientID, Client_Secret) 



   ArtistName <- as.vector(ArtistName)   artist_info <-  length(ArtistName)



   for(i in 1:length(ArtistName)){    ifelse(length(searchArtist(ArtistName[i], token = keys))>=1,       
           artist_info[i] <- searchArtist(ArtistName[i], token = 
                keys)$genres[1],                   artist_info[i] <- "")

  }   artist_info
     }      Genre <- Check_Genre(ArtistName)      library(wordcloud)       library(tm)     wordcloud(Genre, random.order = FALSE)

Thanks,

Polly