R/spatial_sync_vector.R

In STARStools: R functions for working spatial/remote sensing data.

#' spatial_sync_vector
#' @param unsynced TODO
#' @param reference TODO
#' @param verbose Logical. TODO
#' @export

spatial_sync_vector <- function(unsynced,reference,verbose=TRUE)
{
	require("rgdal")
	new_projection=projection(reference)
	old_projection=projection(unsynced)

	if(new_projection!=old_projection)
	{
		synced_vector=spTransform(unsynced,CRS(new_projection))
	} else
	{
		synced_vector=unsynced
	}
	if(verbose){ print(projection(synced_vector)) } 
	return(synced_vector)
}