How to unquote function argument in rlang

Question

I have two lists to combine:

x <- list(id1 = list(q1 = list(a = 5, b = 8), q7 = list(c = "a", d = "e")),
  id2 = list(q1 = list(a = 6, b =