R/get_coordinates.R

In leastcostpath: Modelling Pathways and Movement Potential Within a Landscape

#' get coordinates from a variety of different object classes
#' 
#' @param x coordinates. \code{sf} 'POINT' or 'MULTIPOINT', \code{SpatVector}, \code{data.frame} or \code{matrix} containing the locations coordinates
#' 
#' @author Joseph Lewis
#' 
#' @return \code{matrix} matrix of coordinates
#' 
#' @export

get_coordinates <- function(x) { 
  
  if(inherits(x, "sf")) { 
    coords <- sf::st_coordinates(x)[, 1:2, drop = FALSE]
  }
  else if (inherits(x, "SpatVector")) { 
    coords <- terra::crds(x)
  }
  else if (inherits(x, "data.frame")) { 
    coords <- as.matrix(x)
  }
  else if (inherits(x, "matrix")) { 
    coords <- x
  }
  else if (inherits(x, "numeric")) { 
    coords <- matrix(x, nrow = 1)
  }
  
  return(coords)
  
}