我有一个闪亮的应用程序，可以显示传单地图。该应用程序的功能之一允许用户在地图上添加新的地理标记。但是，我希望在将此类标记添加到地图上后立即打开该标记的弹出窗口，但始终保留使用“x”按钮或单击地图来关闭它的可能性。
我已经阅读了传单文档的“标记”指南（“从层继承的弹出方法”小节，非常详细的指南显然在 R 语言中不可用）并且我找到了这个选项openPopup()。不幸的是，这似乎不适用于我的代码。这是一个简单的例子：
library(leaflet)
leaflet() %>%
addTiles() %>%
addMarkers(lng = -100,
lat = 50,
popup = "ALE",
options = popupOptions(openPopup = TRUE))
预期的行为是这个使用传单的在线工具中显示的行为。请尝试搜索地址，并查看新标记是否立即打开自己的弹出窗口。
在此先感谢您的帮助！
我试图通过shinyBSbsTooltip()包的功能向我的shiny应用程序中的不同操作按钮添加一些工具提示，并且我想修改特定工具提示框的宽度。为此，我可以在 UI 开头指定 HTML 标签并直接修改 CSS，但如果我使用简单元素，我会修改代码中每个工具提示的宽度：.tooltip {...}
您可以在下面找到一个带有两个不同操作按钮的最小可重现示例：
library(shiny)
library(shinyBS)
library(shiny)
ui <- fluidPage(
tags$head(tags$style(HTML(".tooltip {width: 300px;}"))),
br(),
actionButton(inputId = "button1",
label = "First"),
bsTooltip(id = "button1",
title = "Bonjour!",
placement = "right",
trigger = "hover"),
br(),
br(),
actionButton(inputId = "button2",
label = "Second"),
bsTooltip(id = "button2",
title = "Hello!",
placement = "right",
trigger = "hover")
)
server <- function(input, output, session) {
}
shinyApp(ui, server)
我以前遇到过这种情况，例如当我必须修改特定小部件的占位符的颜色textInput()时。为此，HTML()我在函数中指定：
tags$head(tags$style(HTML("#textinput_ID::placeholder {color: #EEE1525;}")))
但这在这种情况下似乎不起作用。 …