R visNetwork siny: change regular and highlighting color of edges with 1 click

Question

I have an interactive network and I like to change the color of edges (and nodes) from a running shiny session. Ideally this change respects the current selection state (non