add this to atools

[hugomflavio]

assign_xyz_to_dets <- function(ato) {
  has(ato, c("det", "dep"), error = TRUE)
  det <- get_det(ato)
  dep <- get_dep(ato)
  det$deploy_lat <- dep$deploy_lat[det$dep_match]
  det$deploy_lon <- dep$deploy_lon[det$dep_match]
  det$deploy_z <- dep$deploy_z[det$dep_match]
  ato <- add(ato, det)
  return(ato)
}

Could make others for e.g. putting animal info on the detections