Fixed style and removed commented code

sportsdataverse · Oct 20, 2022 · 1e57452 · 1e57452
1 parent 4455f3c
commit 1e57452
Showing 1 changed file with 1 addition and 8 deletions.
diff --git a/R/features-football.R b/R/features-football.R
@@ -103,7 +103,7 @@ football_field_apron <- function(field_length = 0,
     team_bench_area_border_thickness +
     field_border_thickness
 
-  ext_y = starting_depth + extra_apron_padding
+  ext_y <- starting_depth + extra_apron_padding
 
   if (tolower(bench_shape) %in% c("rectangle", "rectangular")) {
     m <- team_bench_width / (
@@ -310,13 +310,6 @@ football_field_apron <- function(field_length = 0,
     )
   )
 
-  # field_apron_df <- create_rectangle(
-  #   x_min = -ext_x,
-  #   x_max = ext_x,
-  #   y_min = -ext_y,
-  #   y_max = ext_y
-  # )
-
   return(field_apron_df)
 }