R/ip_to_bytes.R

In ipaddress: Data Analysis for IP Addresses and Networks

#' Represent address as raw bytes
#'
#' Encode or decode an [`ip_address`] as a list of raw bytes.
#'
#' @details
#' The bytes are stored in network order (also known as
#' big-endian order), which is part of the IP standard.
#'
#' IPv4 addresses use 4 bytes, IPv6 addresses use 16 bytes,
#' and missing values are encoded as `NULL`.
#'
#' @param x
#'  * `ip_to_bytes()`: An [`ip_address`] vector
#'  * `bytes_to_ip()`: A list of raw vectors or a [`blob::blob`] object
#'
#' @return
#'  * `ip_to_bytes()`: A list of raw vectors
#'  * `bytes_to_ip()`: An [`ip_address`] vector
#'
#' @examples
#' x <- ip_address(c("192.168.0.1", "2001:db8::8a2e:370:7334", NA))
#' ip_to_bytes(x)
#'
#' bytes <- list(
#'   as.raw(c(0xc0, 0xa8, 0x00, 0x01)),
#'   as.raw(c(
#'     0x20, 0x01, 0x0d, 0xb8, 0x00, 0x00, 0x00, 0x00,
#'     0x00, 0x00, 0x8a, 0x2e, 0x03, 0x70, 0x73, 0x34
#'   )),
#'   NULL
#' )
#' bytes_to_ip(bytes)
#' @family address representations
#' @seealso Use [blob::as_blob()] to cast result to a blob object
#' @export
ip_to_bytes <- function(x) {
  check_address(x)
  wrap_encode_bytes(x)
}

#' @rdname ip_to_bytes
#' @export
bytes_to_ip <- function(x) {
  is_bytes <- function(y) is_raw(y) || is_null(y)

  if (!is_list(x) || !all(vapply(x, is_bytes, TRUE))) {
    cli::cli_abort("{.arg x} must be a list of raw vectors")
  }

  wrap_decode_bytes(x)
}