R/spatial_extent.R

In ices-tools-dev/sfdQC: Functions to produce quality control reports and plots for ICES WGSFD VMS data and products

#' @export
spatial_extent <- function(vms) {

  # convert c_sqaures to lat and long
  latlong <- suppressWarnings(CSquare2LonLat(vms$c_square))


  tab <-
    cbind(
      aggregate(latlong$longitude, by = list(Year = vms$year), FUN = range),
      aggregate(latlong$latitude, by=list(Year = vms$year),FUN = range)[,-1]
    )
  colnames(tab) <- c("Year", "min lon", "max lon", "min lat", "max lat")

  kable(tab, booktabs = TRUE)
}