R/00_vertex.R

In mdsumner/sc: Common Forms for Complex Hierarchical and Relational Data Structures

#' Extract unique vertices
#'
#' @param x model
#' @param ... passed to methods
#' @return data frame of only the unique coordinates
#' @export
#' @examples
#' sc_vertex(minimal_mesh)
#' sc_vertex(SC0(minimal_mesh))
sc_vertex <- function(x, ...) {
  UseMethod("sc_vertex")
}
#' @name sc_vertex
#' @export
sc_vertex.default <- function(x, ...) {
  SC0(x)[["vertex"]]
}

#' @name sc_vertex
#' @export
sc_vertex.SC <- function(x, ...) {
  x[["vertex"]]
}
#' @name sc_vertex
#' @export
sc_vertex.SC0 <- function(x, ...) {
  x[["vertex"]]
}
#' @name sc_vertex
#' @export
sc_vertex.ARC <- function(x, ...) {
  x[["vertex"]]
}
#' @name sc_vertex
#' @export
sc_vertex.TRI <- function(x, ...) {
  x[["vertex"]]
}
#' @name sc_vertex
#' @export
sc_vertex.TRI0 <- function(x, ...) {
  x[["vertex"]]
}

#' @name sc_vertex
#' @export
sc_vertex.PATH <- function(x, ...) {
  x[["vertex"]]
}
#' @name sc_vertex
#' @export
sc_vertex.PATH0 <- function(x, ...) {
  x[["vertex"]]
}

#' @name sc_vertex
#' @export
sc_vertex.pslg <- function(x, ...) {
  tibble::tibble(x_ = x$P[,1L], y_ = x$P[,2L])
}