some codes for setup data

data <- data |>
    dplyr::mutate(
      x = glyph_mapping(.data$x_major,
                        rescale(.data$x_minor),
                        params$width)
    )

  data <- data |>
    tidyr::pivot_longer(cols = c(.data$y_minor, .data$ymax_minor), names_to = "t", values_to = "value") |>
    dplyr::mutate(a = rescale(value)) |>
    dplyr::select(-value) |>
    tidyr::pivot_wider(names_from = "t", values_from = "a") |>
    dplyr::mutate( ymin = glyph_mapping(.data$y_major,
                                        .data$y_minor,
                                        params$height),
                   ymax = glyph_mapping(.data$y_major,
                                        .data$ymax_minor,
                                        params$height))
maliny12 / sugarglider

some codes for setup data #7
