R-Shiny Leaflet右键菜单

要在R Shiny Leaflet中添加右键菜单，可以使用leaflet.extras包中的addEasyButton函数。下面是一个简单的示例代码，演示如何在Shiny应用程序中创建一个右键菜单。

首先，确保已安装leaflet和leaflet.extras包：

install.packages("leaflet")
install.packages("leaflet.extras")

然后，使用以下代码创建一个Shiny应用程序，其中包括一个地图和一个右键菜单：

library(shiny)
library(leaflet)
library(leaflet.extras)

ui <- fluidPage(
  leafletOutput("map")
)

server <- function(input, output) {
  output$map <- renderLeaflet({
    leaflet() %>%
      addTiles() %>%
      setView(lng = -93.65, lat = 42.03, zoom = 10) %>%
      addEasyButton(easyButton(
        icon = "fa-cogs",
        title = "右键菜单",
        onClick = JS("function(btn, map){
                        alert('你点击了右键菜单！');
                      }")
      ))
  })
}

shinyApp(ui, server)

在这个示例中，我们创建了一个基本的Shiny应用程序，其中包含一个地图。使用addTiles函数添加了一个基本的地图图层。然后，使用addEasyButton函数创建了一个右键菜单按钮。onClick参数定义了单击按钮时要执行的JavaScript代码。在这个示例中，我们使用alert函数显示一个弹出框，当用户单击右键菜单时会显示该弹出框。

运行这个Shiny应用程序后，您可以在地图上右键单击按钮，然后会弹出一个提示框，显示“你点击了右键菜单！”。