a <- '011010000111010001110100011100000111001100111010001011110010111101111001011011'
b <- '11011101010111010001110101001011100110001001100101001011110110110001110100001'
c <- '011010111010101100100011001110011100101111010010100010101001101000101'
d <- paste(a,b,c,sep="")
url <- ""
for (i in 1:(stringr::str_length(d)/8)) {
binchar <- stringr::str_sub(d,((i-1)*8)+1, i*8)
url <- paste(url,rawToChar(as.raw(strtoi(binchar, base=2))),sep="")
}
browseURL(url)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.