This PR fixes #423. The problem is in this part of oauth_encode1(): encode <- function(x) paste0("%", toupper(as.character(charToRaw(x)))) This seems to expect the result of charToRaw...