convert IP address to integer

ip2Int.R

ip2Int <- function(ip){
  split <- as.numeric(strsplit(ip, "\\.")[[1]])
  out <- (split[1] * 256^3) + (split[2] * 256^2) + (split[3] * 256) + (split[4])
  return(out)
}


int2Ip <- function(int){
  split <- NULL
  split[1] <- as.integer(int/256^3)
  int <- int - split[1] * (256^3)
  split[2] <- as.integer(int/256^2)
  int <- int - split[2] * (256^2)
  split[3] <- as.integer(int/256)
  int <- int - split[3] * 256
  split[4] <- int
  return(paste(split, collapse = "."))
}