R/check_same_length.R

In henobe/flexoptr: Optimise Energy Flexibilities

#' Check all elements for length equality
#'
#' @param ... any number of vectors.
#'
#' @return TRUE or FALSE
#' @noRd
check_same_length <- function(...) {
  sapply(list(...), length) %>%
    unique() %>%
    length() == 1
}