Manually setting colors (RGB/HEX) for group values in a forceNetwork diagram about networkd3 HOT 2 CLOSED

library(networkD3)

links <- 
  read.csv(text = "
    source,target,value,color
    0,1,1,#F00
    0,2,1,#00F")

nodes <- 
  read.csv(text = "
    node_id,node_label,node_group
    0,Oranges,Orange_node
    1,Apples,Apple_node
    3,Pears,Pear_node")


forceNetwork(
  Links = links,
  Nodes = nodes,
  Source = "source",
  Target = "target",
  Value = "value",
  NodeID = "node_label",
  Group = "node_group",
  opacity = 1,
  opacityNoHover = 1,
  linkWidth = 4,
  fontSize = 18,
  colourScale = JS('d3.scaleOrdinal(["#FFA500", "#F00", "#90ee90"], ["Orange_node", "Apple_node", "Pear_node"]);'),
  linkColour = links$color
)