Convert integers to IP dot addresses in R - separated

gistfile1.r

int2ip_sep <- function(int) {
   val <- sprintf("%x", int)
   pos <- matrix(c(seq(1,7,2), seq(2,8,2)), ncol = 2)
   spl <- apply(pos, 1, function(x) {substr(val, x[1], x[2])})
   as.numeric(sapply(spl, function(x) {sprintf("%d",
                                               as.numeric(paste("0x",
                                                                x, sep="")))}))
}