diff --git a/R/get_bbox.R b/R/get_bbox.R index 2862c24..423799f 100644 --- a/R/get_bbox.R +++ b/R/get_bbox.R @@ -20,12 +20,17 @@ get_bbox <-function(site_metadata, sites){ # filter(field_site_id %in% (sites)) |> # select(longitude) + if ('site_id' %in% names(site_df) == FALSE){ + site_df <- site_df |> + rename(site_id = field_site_id) ## rename the neon site_id column + } + site_lat <- site_df |> - filter(field_site_id %in% sites) |> + filter(site_id %in% sites) |> select(latitude) site_lon <- site_df |> - filter(field_site_id %in% sites) |> + filter(site_id %in% sites) |> select(longitude) #site_lat <- site_df[which(site_df[,2] == sites), 'latitude']