r - 如何控制 R 中传单功能弹出窗口的弹出窗口宽度？

Question

我想通过 R 控制传单功能弹出窗口的宽度，我该怎么做？

  output$HomeMap <- renderLeaflet(leaflet() %>% 
                              addTiles() %>% 
                              setView(1.93, 41.48, zoom = 3) %>% 
                              addPolygons(data = subset(world, name %in%  datasourceInput()), 
                                          color = datasourceColor(), 
                                          weight = 1, 
                                          popup = datasourcePopups()
                              ))

我不明白如何控制与弹出窗口相关的选项。

非常感谢您在此问题上的帮助并致以最诚挚的问候!

Answer 1

我在创建我现在正在处理的一系列 map 时遇到了类似的问题。我希望在 html/css/javascripted 页面上完成的任何格式都在引号内进行，我使用了双引号示例:"<br>"创建换行符并在下一行开始下一条信息。

为了给它排序，我使用了一组表格......我有 16 行文本，并希望将最后一行用于 png 图像。它起作用了，但是图像使文本从上方弹出窗口的一侧缩放……背景没有随之缩放。

所以我玩了一些代码，在网上搜索，然后在弹出变量的最顶部插入这行代码:

myPopUp<- paste("<style> div.leaflet-popup-content {width:auto !important;}</style>", 
myvariable, "some copy to print", another variable)

确保整个弹出窗口都在 paste 内功能，现在弹出窗口会自动调整到内容的大小。这确实意味着您需要注意复制长度并适当调整弹出窗口中的任何图像的大小。

我的设置是从 292 个人口普查区之一中提取 16 个值和一个图表，并放入正确的数据和缓存的图像，然后重新缩放，它可以完美地工作。您可能想尝试一下。

这是魔术代码:"<style> div.leaflet-popup-content {width:auto !important;}</style>"
这是它的样子

现在，如果我能在我一致认可的某个地方制作弹出式 anchor 就好了!