Fix typo with param$bird_create vs param$bird

Author: Rafnuss

R/param_create.R

@@ -85,7 +85,7 @@ param_create <- function(id, default = FALSE, ...) {
         low_speed_fix = formals(graph_set_movement)$low_speed_fix,
         zero_speed_ratio = formals(graph_set_movement)$zero_speed_ratio
       ),
-      bird = list(
+      bird_create = list(
         mass = formals(bird_create)$mass,
         wing_span = formals(bird_create)$wing_span,
         wing_aspect = formals(bird_create)$wing_aspect,

R/print.param.R

@@ -79,7 +79,7 @@ print.param <- function(x, ...) {
   bullets(param$graph_set_movement, "shape")
   bullets(param$graph_set_movement, "scale")
   bullets(param$graph_set_movement, "location")
-  bullets(param, "bird")
+  bullets(param, "bird_create")
   bullets(param$graph_set_movement, "power2prob")
   bullets(param$graph_set_movement, "low_speed_fix")
   bullets(param$graph_set_movement, "zero_speed_ratio")