RosettaCodeData/Task/Base64-decode-data/R/base64-decode-data.r

"VG8gZXJyIGlzIGh1bWFuLCBidXQgdG8gcmVhbGx5IGZvdWwgdGhpbmdzIHVwIHlvdSBuZWVkIGEgY29tcHV0ZXIuCiAgICAtLVBhdWwgUi5FaHJsaWNo" |>
  base64enc::base64decode() |>
  rawToChar() |>
  cat()