Multiple references on same table column

[jrosell]

I have this code, I expect it to create multiple references on flights$origin. One for airports$faa an another for weather$origin

library(datamodelr)
library(DiagrammeR)
dm_f <- dm_from_data_frames(flights, airports, weather)
dm_f <- dm_add_references(
  dm_f,
  flights$dest == airports$faa,
  flights$origin == airports$faa,
  flights$origin == weather$origin
) 
dm_f$references
graph <- dm_create_graph(
  dm_f, 
  rankdir = "RL", # RL, BT, TB, LR
  col_attr = c("column", "type"),
  edge_attrs = "dir = both, arrowtail = crow, arrowhead = odiamond",
  columnArrows = TRUE,
  view_type = "keys_only",
)
dm_render_graph(graph)

What I get instead is the last reference I added.