R map_dbl() to extract character

Question

This is a beginner silly R question:

df <- tribble(  
  ~x,
  list(a = 1, b = 2),
  list(a = 2, c = 4)
  )

df %>%
  mutate(
    a = map_dbl(x, "a&