#' @include internal.R reexports.R
NULL
#' Geometry classes
#'
#' Extract geometry class names from a [sf::sf()] object.
#'
#' @param x [sf::sf()] object.
#'
#' @return A `character` vector.
#'
#' @noRd
st_geometry_classes <- function(x) {
assert(inherits(x, "sf"))
vapply(sf::st_geometry(x), class, character(3))[2, ]
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.