base64_encode(bin, linebreaks = FALSE) base64_decode(text)
input <- charToRaw("foo = bar + 5") message <- base64_encode(input) output <- base64_decode(message) identical(output, input)
Run the code above in your browser using DataLab