嵌入的远程图片在传单弹出窗口中的位置

Question

我正在为一个简短的代码而苦苦挣扎。鉴于我找不到任何解决方案，我求助于您：）

这是我的简短代码，用于在我的传单弹出窗口中插入一种“个人资料图片”：

    library(leaflet)
df <- data.frame("Name" = c("Mickey", "Minnie"), "Sex" = c("M", "F"), "Lat" = c(40, 50), "Long" = c(0, 20), "Picture" = c("https://resize-elle.ladmedia.fr/r/625,,forcex/crop/625,804,center-middle,forcex,ffffff/img/var/plain_site/storage/images/loisirs/sorties/news/tv-la-voix-de-mickey-mouse-s-est-eteinte/11310217-1-fre-FR/tv_la_voix_de_mickey_mouse_s_est_eteinte.jpg", "https://upload.wikimedia.org/wikipedia/en/thumb/6/67/Minnie_Mouse.png/220px-Minnie_Mouse.png"))
df$Picture <- paste("<img height='100' src='", df$Picture, "' />", sep = "")

m <- leaflet() %>%
  addTiles() %>% 
  addMarkers(data = df, lng = ~Long, lat = ~Lat,
             popup = ~paste("<strong>Name: </strong>",
                            df$Name, "<br>",
                            "<strong>Sex: </strong>",
                            df$Sex, "<br>",
                            Picture,
                            sep = ""))
m

如预期的那样，图片显示在文本下方，但我希望它显示在弹出窗口的右侧，就像文本在1x2表格的左侧单元格中一样，而图片在右单元格（请参见下图；图片比例错误）。

任何人都可以帮我吗？

非常感谢：） 最好， 弗雷德