R Program to Convert Decimal into Binary using Recursion

# Program to convert decimal number into binary number using recursive function
convert_to_binary <- function(n) {
if(n > 1) {
convert_to_binary(as.integer(n/2))
}
cat(n %% 2)
}

Output

> convert_to_binary(52)
110100