From a4342714ca0657273b8ba279934335ab29318436 Mon Sep 17 00:00:00 2001
From: addelany <addelany@gmail.com>
Date: Tue, 7 Nov 2023 16:01:10 -0600
Subject: [PATCH] reorder coords

---
 R/get_site_coords.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/get_site_coords.R b/R/get_site_coords.R
index 71894f2..b467270 100644
--- a/R/get_site_coords.R
+++ b/R/get_site_coords.R
@@ -10,7 +10,7 @@ get_site_coords <- function(site_metadata, sites){
 
   site_df <- readr::read_csv(site_metadata, col_types = cols())
 
-  site_lat_lon <- lapply(sites, function(i) c(site_df$field_latitude[which(site_df[,2] == i)], site_df$field_longitude[which(site_df[,2] == i)]))
+  site_lat_lon <- lapply(sites, function(i) c(site_df$field_longitude[which(site_df[,2] == i)], site_df$field_latitude[which(site_df[,2] == i)]))
 
   return(site_lat_lon)
 }