arphit: RBA-style R Plots

#' RBA colour palette
#'
#' A list of RBA-standard colours to use. Use them by using RBA["Red1"] in a
#' colour declaration. For instance:
#'
#' arphitgg(data.frame(x = 1:10, y = 1:10), agg_aes(x, y)) +
#'   agg_line(colour = RBA["Red2"])
#'
#' To see a list of all the available colours, type `vignette("rbacolours")`
#'
#' @export
RBA <- c() #nolint

RBA["Red1"] <- rgb(255, 159, 174, maxColorValue = 255)
RBA["Red2"] <- rgb(255, 131, 139, maxColorValue = 255)
RBA["Red3"] <- rgb(251, 64, 90, maxColorValue = 255)
RBA["Red4"] <- rgb(249, 90, 121, maxColorValue = 255)
RBA["Red5"] <- rgb(243, 41, 56, maxColorValue = 255)
RBA["Red6"] <- rgb(220, 40, 30, maxColorValue = 255)
RBA["Red7"] <- rgb(193, 56, 49, maxColorValue = 255)
RBA["Red8"] <- rgb(162, 49, 56, maxColorValue = 255)
RBA["Red9"] <- rgb(122, 36, 39, maxColorValue = 255)

RBA["Orange1"] <- rgb(255, 159, 113, maxColorValue = 255)
RBA["Orange2"] <- rgb(255, 111, 32, maxColorValue = 255)
RBA["Orange3"] <- rgb(255, 90, 0, maxColorValue = 255)
RBA["Orange4"] <- rgb(253, 176, 114, maxColorValue = 255)
RBA["Orange5"] <- rgb(249, 148, 63, maxColorValue = 255)
RBA["Orange6"] <- rgb(215, 119, 0, maxColorValue = 255)
RBA["Orange7"] <- rgb(212, 170, 133, maxColorValue = 255)
RBA["Orange8"] <- rgb(200, 78, 0, maxColorValue = 255)
RBA["Orange9"] <- rgb(191, 139, 94, maxColorValue = 255)

RBA["Brown1"] <- rgb(165, 81, 33, maxColorValue = 255)
RBA["Brown2"] <- rgb(152, 98, 19, maxColorValue = 255)
RBA["Brown3"] <- rgb(137, 68, 30, maxColorValue = 255)
RBA["Brown4"] <- rgb(112, 51, 24, maxColorValue = 255)

RBA["Olive1"] <- rgb(255, 182, 17, maxColorValue = 255)
RBA["Olive2"] <- rgb(218, 170, 0, maxColorValue = 255)
RBA["Olive3"] <- rgb(214, 200, 52, maxColorValue = 255)
RBA["Olive4"] <- rgb(209, 142, 0, maxColorValue = 255)
RBA["Olive5"] <- rgb(199, 172, 0, maxColorValue = 255)
RBA["Olive6"] <- rgb(163, 119, 0, maxColorValue = 255)
RBA["Olive7"] <- rgb(142, 147, 0, maxColorValue = 255)
RBA["Olive8"] <- rgb(134, 105, 34, maxColorValue = 255)
RBA["Olive9"] <- rgb(115, 100, 33, maxColorValue = 255)
RBA["Olive10"] <- rgb(100, 88, 24, maxColorValue = 255)

RBA["Green1"] <- rgb(118, 209, 183, maxColorValue = 255)
RBA["Green2"] <- rgb(114, 174, 86, maxColorValue = 255)
RBA["Green3"] <- rgb(94, 193, 82, maxColorValue = 255)
RBA["Green4"] <- rgb(0, 195, 118, maxColorValue = 255)
RBA["Green5"] <- rgb(0, 182, 144, maxColorValue = 255)
RBA["Green6"] <- rgb(0, 174, 66, maxColorValue = 255)
RBA["Green7"] <- rgb(0, 153, 121, maxColorValue = 255)
RBA["Green8"] <- rgb(0, 153, 74, maxColorValue = 255)

RBA["DarkGreen1"] <- rgb(90, 142, 35, maxColorValue = 255)
RBA["DarkGreen2"] <- rgb(64, 118, 49, maxColorValue = 255)
RBA["DarkGreen3"] <- rgb(38, 78, 55, maxColorValue = 255)
RBA["DarkGreen4"] <- rgb(0, 121, 79, maxColorValue = 255)
RBA["DarkGreen5"] <- rgb(0, 120, 54, maxColorValue = 255)
RBA["DarkGreen6"] <- rgb(0, 104, 61, maxColorValue = 255)
RBA["DarkGreen7"] <- rgb(0, 102, 83, maxColorValue = 255)
RBA["DarkGreen8"] <- rgb(0, 87, 61, maxColorValue = 255)

RBA["Aqua1"] <- rgb(84, 132, 118, maxColorValue = 255)
RBA["Aqua2"] <- rgb(65, 218, 197, maxColorValue = 255)
RBA["Aqua3"] <- rgb(41, 149, 181, maxColorValue = 255)
RBA["Aqua4"] <- rgb(25, 205, 215, maxColorValue = 255)
RBA["Aqua5"] <- rgb(0, 177, 170, maxColorValue = 255)
RBA["Aqua6"] <- rgb(0, 137, 151, maxColorValue = 255)
RBA["Aqua7"] <- rgb(0, 101, 122, maxColorValue = 255)
RBA["Aqua8"] <- rgb(0, 65, 81, maxColorValue = 255)

RBA["Blue1"] <- rgb(100, 158, 201, maxColorValue = 255)
RBA["Blue2"] <- rgb(91, 181, 228, maxColorValue = 255)
RBA["Blue3"] <- rgb(83, 130, 172, maxColorValue = 255)
RBA["Blue4"] <- rgb(72, 145, 220, maxColorValue = 255)
RBA["Blue5"] <- rgb(18, 86, 136, maxColorValue = 255)
RBA["Blue6"] <- rgb(0, 159, 223, maxColorValue = 255)
RBA["Blue7"] <- rgb(0, 115, 207, maxColorValue = 255)
RBA["Blue8"] <- rgb(0, 62, 115, maxColorValue = 255)
RBA["Blue9"] <- rgb(0, 40, 88, maxColorValue = 255)
RBA["Blue10"] <- rgb(0, 28, 167, maxColorValue = 255)

RBA["Violet1"] <- rgb(181, 143, 187, maxColorValue = 255)
RBA["Violet2"] <- rgb(166, 125, 201, maxColorValue = 255)
RBA["Violet3"] <- rgb(154, 96, 194, maxColorValue = 255)
RBA["Violet4"] <- rgb(147, 120, 208, maxColorValue = 255)
RBA["Violet5"] <- rgb(132, 76, 176, maxColorValue = 255)
RBA["Violet6"] <- rgb(128, 119, 192, maxColorValue = 255)
RBA["Violet7"] <- rgb(125, 93, 198, maxColorValue = 255)
RBA["Violet8"] <- rgb(98, 91, 196, maxColorValue = 255)

RBA["Purple1"] <- rgb(137, 56, 185, maxColorValue = 255)
RBA["Purple2"] <- rgb(117, 47, 165, maxColorValue = 255)
RBA["Purple3"] <- rgb(107, 58, 120, maxColorValue = 255)
RBA["Purple4"] <- rgb(98, 77, 124, maxColorValue = 255)
RBA["Purple5"] <- rgb(80, 45, 126, maxColorValue = 255)
RBA["Purple6"] <- rgb(73, 20, 159, maxColorValue = 255)
RBA["Purple7"] <- rgb(51, 29, 84, maxColorValue = 255)
RBA["Purple8"] <- rgb(26, 16, 81, maxColorValue = 255)

RBA["Maroon1"] <- rgb(188, 52, 186, maxColorValue = 255)
RBA["Maroon2"] <- rgb(173, 63, 105, maxColorValue = 255)
RBA["Maroon3"] <- rgb(172, 0, 64, maxColorValue = 255)
RBA["Maroon4"] <- rgb(145, 64, 109, maxColorValue = 255)
RBA["Maroon5"] <- rgb(140, 34, 69, maxColorValue = 255)
RBA["Maroon6"] <- rgb(135, 1, 80, maxColorValue = 255)
RBA["Maroon7"] <- rgb(109, 26, 65, maxColorValue = 255)
RBA["Maroon8"] <- rgb(93, 36, 90, maxColorValue = 255)

RBA["Pink1"] <- rgb(242, 140, 210, maxColorValue = 255)
RBA["Pink2"] <- rgb(251, 124, 179, maxColorValue = 255)
RBA["Pink3"] <- rgb(183, 116, 154, maxColorValue = 255)
RBA["Pink4"] <- rgb(206, 102, 205, maxColorValue = 255)
RBA["Pink5"] <- rgb(202, 94, 155, maxColorValue = 255)
RBA["Pink6"] <- rgb(223, 62, 125, maxColorValue = 255)
RBA["Pink7"] <- rgb(222, 29, 132, maxColorValue = 255)
RBA["Pink8"] <- rgb(209, 0, 93, maxColorValue = 255)

RBA["Grey1"] <- rgb(255, 255, 255, maxColorValue = 255)
RBA["Grey2"] <- rgb(204, 204, 204, maxColorValue = 255)
RBA["Grey3"] <- rgb(179, 179, 179, maxColorValue = 255)
RBA["Grey4"] <- rgb(153, 153, 153, maxColorValue = 255)
RBA["Grey5"] <- rgb(128, 128, 128, maxColorValue = 255)
RBA["Grey6"] <- rgb(102, 102, 102, maxColorValue = 255)
RBA["Grey7"] <- rgb(77, 77, 77, maxColorValue = 255)
RBA["Grey8"] <- rgb(51, 51, 51, maxColorValue = 255)
RBA["Grey9"] <- rgb(26, 26, 26, maxColorValue = 255)
RBA["Grey10"] <- rgb(0, 0, 0, maxColorValue = 255)

# Add aliases for default colours
RBA["Default1"] <- RBA["Aqua8"]
RBA["Default2"] <- RBA["Orange2"]
RBA["Default3"] <- RBA["DarkGreen7"]
RBA["Default4"] <- RBA["Violet1"]
RBA["Default5"] <- RBA["Blue7"]
RBA["Default6"] <- RBA["Red5"]
RBA["Default7"] <- RBA["Brown4"]
RBA["Default8"] <- RBA["Pink2"]
RBA["Default9"] <- RBA["Grey7"]