tibble_error_assign_incompatible_size when calling palms_build_trajectories() #13

# Build palmsplus
palmsplus <- palms_build_palmsplus(palms)

# Build days
days <- palms_build_days(palmsplus)

# Build trajectories
trajectories <- palms_build_trajectories(palmsplus)

> rlang::last_error()
<error/tibble_error_assign_incompatible_size>
Assigned data `value` must be compatible with existing data.
x Existing data has 100 rows.
x Assigned data has 67 rows.
i Only vectors of size 1 are recycled.
Backtrace:
Run `rlang::last_trace()` to see the full context.

> rlang::last_trace()
<error/tibble_error_assign_incompatible_size>
Assigned data `value` must be compatible with existing data.
x Existing data has 100 rows.
x Assigned data has 67 rows.
i Only vectors of size 1 are recycled.
Backtrace:
     x
  1. +-palmsplusr::palms_build_trajectories(palmsplus)
  2. | \-`%>%`(...)
  3. +-dplyr::mutate_if(., is.logical, as.integer)
  4. | \-dplyr:::check_grouped(.tbl, "mutate", "if")
  5. |   \-dplyr::is_grouped_df(tbl)
  6. +-dplyr::mutate(., !!!args_after)
  7. +-sf::st_cast(., "LINESTRING")
  8. +-dplyr::summarise(., !!!args, do_union = FALSE)
  9. +-sf:::summarise.sf(., !!!args, do_union = FALSE)
 10. | +-base::`[[<-`(...)
 11. | +-dplyr:::`[[<-.grouped_df`(...)
 12. | +-base::NextMethod()
 13. | \-tibble:::`[[<-.tbl_df`(...)
 14. |   \-tibble:::tbl_subassign(...)
 15. |     \-tibble:::vectbl_recycle_rhs(...)
 16. |       +-base::withCallingHandlers(...)
 17. |       \-vctrs::vec_recycle(value[[j]], nrow)
 18. +-vctrs:::stop_recycle_incompatible_size(...)
 19. | \-vctrs:::stop_vctrs(...)
 20. |   \-rlang::abort(message, class = c(class, "vctrs_error"), ...)
 21. |     \-rlang:::signal_abort(cnd)
 22. |       \-base::signalCondition(cnd)
 23. \-(function (cnd) ...