Merge pull request #25 from addelany/main

reorder coordinates
eco4cast · Nov 7, 2023 · a2d2012 · a2d2012
2 parents 7964321 + 69aea7e
commit a2d2012
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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)
 }