Как записать необработанный тип / байты в стандартный вывод?

Я довольно долго борюсь с выводом необработанный тип для стандартного вывода. Вот то, что я пробовал, но не работал должным образом:

r <- as.raw(c(0x41, 0x00, 0x43)) # r = "A\0C"
cat(rawToChar(r)) # displays warning and skips data after NULL (outputs "A")
cat(r) # outputs "41 00 43"
writeBin(r, stdout()) # error: can only write to binary connection

Я ищу способ вывести все три байта / символа на стандартный вывод.