I got it to work with download the responses and the tokens and merge it at the end, works fine:
data<- get_responses(iSurveyID = 123456, sLanguageCode= '', sResponseType='short', sCompletionStatus = "complete")
tokens<-get_participants(123456, iStart=1, iLimit=999999, bUnused=FALSE, aAttributes=FALSE)
tokens<-cbind(tokens$participant_info, tokens[-c(3)])
tokens<-tokens[,c(1,5)]
data<-merge(data, tokens, by="token", all = T)
PHP Version 8.0.28
Version 5.6.4+230206