short character vectors with matrix palette

[SymbolixAU]

m <- grDevices::colorRamp(c("red","green","blue","yellow"))(0:1000/1000)
colour_values(1, palette = m )  ## fine
colour_values("a", palette = m) ## error