Merge branch 'main' of https://github.com/j-miszczyszyn/foRestools

j-miszczyszyn · Sep 23, 2024 · 0750f5c · 0750f5c
2 parents c3dee12 + d3b135a
commit 0750f5c
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/R/calculate_new_tree_position.R b/R/calculate_new_tree_position.R
@@ -32,8 +32,8 @@ calculate_new_tree_position <- function(plot, save, crs, dataset, plot_center_x,
 
   # Convert azimuth and distance to Cartesian coordinates
   x <- dplyr::mutate(x,
-                     x_pos = plot_center_x + distance * sin(azimuth * pi / 180),
-                     y_pos = plot_center_y + distance * cos(azimuth * pi / 180)
+    x_pos = plot_center_x + distance * sin(azimuth * pi / 180),
+    y_pos = plot_center_y + distance * cos(azimuth * pi / 180)
   )
 
   # Create an sf object with the specified CRS (EPSG: 2180)
@@ -46,4 +46,3 @@ calculate_new_tree_position <- function(plot, save, crs, dataset, plot_center_x,
 
   return(trees_sf)
 }
-