data-raw/sarid_colors.R

In sarid-ins/saridr: An R package for common tasks related to market research analysis via R

raw_colors <- tibble::tribble(~color_name, ~color_code,
                              "dark_blue_gradient", "#0066ff",
                              "light_blue_gradient", "#3398ff",
                              "dark_purple", "#9d65ea",
                              "light_purple", "#c794f1",
                              "text_purple", "#fffff",
                              "dark_yellow", "#f1d682",
                              "light_yellow", "#ffeca3",
                              "text_yellow", "#6d6e71",
                              "light_blue", "#40b3f6",
                              "lighter_blue", "#70c2f7",
                              "text_light_blue", "#ffffff"
)

sarid_colors <-  data.frame(t(setNames(raw_colors$color_code, raw_colors$color_name)), stringsAsFactors = F)

usethis::use_data(sarid_colors, overwrite = T)