Bad markdown parsing when the style is already bold

[DanChaltiel]

Reprex:

title = "normal text **bold** normal text"
read_docx() %>% 
  body_add_normal(title) %>% 
  body_add_title(title, 1) %>% 
  body_add_title("****normal text **bold** normal text", 1) %>% 
  write_and_open()

Maybe if the style is bold, bold markdown should be ignored?
Or maybe if there is markdown the style formats should be ignored?

Adding **** at the beginning is a workaround for now (artificially adds a bold closing tag).