R/rv_airplane_utils.R

In EDJNet/riskviewer: A modern implementation of the Risk Characterisation Theatre

#' Create a dataframe with seats location and names (used internally)
#'
#' @param rows Numeric, defaults to 33
#' @param seats_per_row Numeric, defaults to 6. Untested with anything different from 6.
#'
#' @return
#' @export
#'
#' @examples
rv_create_airplane_seats <- function(rows = 33,
                                     seats_per_row = 6) {
  column_position <- tibble::tibble(
    column = LETTERS[1:seats_per_row],
    position = c(
      2:sum(seats_per_row / 2, 1),
      sum(seats_per_row / 2, 3):sum(seats_per_row / 2, 3, 2)
    )
  )

  tidyr::expand_grid(
    row = -1:-rows,
    column = LETTERS[1:seats_per_row]
  ) %>%
    dplyr::left_join(column_position, by = "column") %>%
    dplyr::mutate(seat_name = stringr::str_c(
      stringr::str_pad(
        string = paste0(column, row),
        width = 3, side = "both"
      ),
      "\n"
    ))
}