From d3b135a329bbcc0993e1663b5142a2da14d060ac Mon Sep 17 00:00:00 2001 From: j-miszczyszyn Date: Mon, 23 Sep 2024 07:48:07 +0000 Subject: [PATCH] Style code (GHA) --- R/calculate_new_tree_position.R | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/R/calculate_new_tree_position.R b/R/calculate_new_tree_position.R index ccde03a..4c28059 100644 --- 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) } -