小编use*_*655的帖子

我有这种单选按钮:

             radioButtons("test", "test:",
                          c("def" = "def",
                          "ghi" = "ghi",
                            "jkl" = "jkl")

但我想添加一个分隔符tag$hr,将def与其他分隔符分开.我试着像这样制作两个列表:

radioButtons("test", "test:",
c("def" = "def"),
tag$hr ,
radioButtons("test", "test:",
c("ghi" = "ghi",
"jkl" = "jkl")

但它不起作用.

谢谢 !

基于这里的这个例子，我想通过简单地点击感兴趣的区域来动态地将地图与 Highchart 链接起来。但是 shape_click 函数返回 $id NULL。我用不同的 shapefile 尝试了它，但它不起作用。您将在调整后的示例代码下方看到（此处提供的数据可用于从 shape_click 函数中获取 $id。

library(shiny)
library(dplyr)
library(leaflet)
library(sf)
library(rmapshaper)

ui <- fluidPage(

  titlePanel("heatmap"),

  # Sidebar with a slider input for year of interest
  sidebarLayout(
    sidebarPanel(
      sliderInput("year",h3("Select year or push play button"),
                  min = 2000, max = 2002, step = 1, value = 2000,
                  animate = TRUE)
    ),

    # Output of the map
    mainPanel(
      leafletOutput("unemployment"),
      verbatimTextOutput('summary')
    )
  )
)

server <- function(input, output) {
  #to get the spacial data: …