"This site can't be reached" when attempting to generate OAuth token

[calebmbrooks]

code:

library(httr)
 
#these are for Caleb B's developer account
clientID = 'xxxxxxxxxxx'
secret = 'xxxxxxxxxx'
appID <- 'xxxx' 

response = POST(
'https://accounts.spotify.com/api/token',
accept_json(),
authenticate(clientID, secret),
body = list(grant_type = 'client_credentials'),
encode = 'form',
verbose()
)

key <- spotifyOAuth(app_id=appID, client_id = clientID, client_secret = secret)

Running this code opens a new browser window with the page in the attached image

http://localhost:1410/ has been added to whitelisted URIs