bugfix introduced at last commit

geco-bern · May 15, 2024 · e74fddd · e74fddd
1 parent 4bebf0b
commit e74fddd
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/ingest_globalfields.R b/R/ingest_globalfields.R
@@ -1173,8 +1173,8 @@ extract_pointdata_allsites_shp <- function( dir, df_lonlat, layer ){
   df <- sf::st_intersection(pts, shp) |>
     as_tibble() |>
     bind_cols(df_clean, .) |>
-    right_join(df_lonlat, by = c("lon", "lat"))
-    # dplyr::select(-lon, -lat)
+    right_join(df_lonlat, by = c("lon", "lat")) |> 
+    dplyr::select(-lon, -lat)
 
   return(df)
 }