Routes through shiny::session's sendInputMessage() so the colour binding's
receiveMessage updates the swatch.
Usage
update_bs_color(id, value, session = shiny::getDefaultReactiveDomain())Examples
if (interactive()) update_bs_color("col", "#198754")