Using an emoji in body text distorts image

[Nova-Scotia]

I'm trying to include images in my email, and it took me a while to figure out what the problem was, but I've isolated it. Using an emoji in the email distorts the dimensions of images that are added.

When I insert an image like this, everything looks good - no emoji:

image <- add_image(file = "C:/Users/Folder/logo.jpg", width = 100)

body_text <-
  md(glue(
    "
Hello,

I just wanted to let you know that the **1972 Rickenbacker
4001** is here to pick up. Here is a picture of it:

{image}

Cheers
"
  ))


# Compose the email message
draft_email("[email protected]", subject = "test", body = body_text)

But, when I include an emoji in my email body, the image is distorted. Sometimes the distortion is lengthwise and sometimes width.

image <- add_image(file = "C:/Users/Folder/logo.jpg", width = 100)

body_text <-
  md(glue(
    "
Hello,

I just wanted to let you know that the **1972 Rickenbacker
4001** is here to pick up. 😁 Here is a picture of it:

{image}

Cheers
"
  ))


# Compose the email message
draft_email("[email protected]", subject = "test", body = body_text)