#' Get all hexagons in a k-ring around the given center.
#' @note The order of the hexagons is undefined.
#' @inheritParams h3_to_geo
#' @param radius number of rings around the given center
#' @return character vector of H3 indexes
#' @example inst/examples/api-reference/k-ring.R
#' @export
k_ring <- function(h3_index, radius = 1) {
rcpp_k_ring(h3_index, radius)
}
#' Get all hexagons in a k-ring around a given center ordered by distance from the origin.
#' @note The order of the hexagons within each ring is undefined.
#' @inheritParams k_ring
#' @return tibble with 2 variables: \code{h3_index} and \code{distance}
#' @export
k_ring_distances <- function(h3_index, radius = 1) {
out <- rcpp_k_ring_distances(h3_index, radius)
tibble::tibble(h3_index = out[[1]], distance = as.integer(out[[2]]))
}
#' Get the hollow hexagonal ring centered at the given origin.
#' @inheritParams k_ring
#' @return character vector of H3 indexes
#' @export
hex_ring <- function(h3_index, radius = 1) {
rcpp_hex_ring(h3_index, radius)
}
#' Get the line of indexes between the given start and end indexes (inclusive).
#' @param h3_index_start character scalar; H3 start index
#' @param h3_index_end character scalar; H3 end index
#' @export
h3_line <- function(h3_index_start, h3_index_end) {
rcpp_h3_line(h3_index_start, h3_index_end)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.