Я борюсь с коротким кодом.Учитывая, что я не могу найти никакого решения, я обращаюсь к вам:)
Вот мой короткий (макетный) код для вставки своего рода "картинки профиля" в мое всплывающее окно:
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, а рисунокв правой ячейке (см. изображение ниже; неправильный масштаб изображения).
Кто-нибудь из вас может мне помочь с этим?
Большое спасибо :) Лучший, Фред