Remove names from color vectors before modifying

[gadenbuie]

library(xaringanthemer)

palette <- c(
  primary = "#1381B0",  # Blue
  secondary = "#FF961C" # Yellow/orange
)

style_duo_accent(
  outfile = NULL,
  primary_color = palette["primary"],
  secondary_color = palette["secondary"],
  inverse_header_color = "#FFFFFF"
)
#> Error: Color names in `colors` must be valid CSS classes

happens because primary.primary and secondary.secondary are names in the color vector and fails checks that they'll be valid CSS.