Converts a list of colors in hexadecimal format (#RRGGBB) to a list of PyMOL's `set_color` commands

hex_to_rgb.R

library(magrittr)

hex_to_rgb = function(color_list) {
  mapply(function(clr, i) {
    clr %>%
      substring(c(2, 4, 6), c(3, 5, 7)) %>%
      paste0("0x", .) %>%
      strtoi() %>%
      `/`(256) %>%
      paste(collapse = ",") %>%
      sprintf("set_color color_%i, [%s]", i, .)
    }, color_list, 1:length(color_list))
}