R/ronin.R

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)
timchurches/genes2anzctR documentation built on May 29, 2019, 9:53 a.m.