Authorising access to Xero after 403 code using the Oauth2 in r

Question

This is the step after the question that can be found here

I\'ve run the following code:

pack <- c(\'curl\',\'xml2\',\'XML\', \'plyr\', \'dplyr\',\'