小编Awa*_*san的帖子

我leaflet在 RShiny 中有一张地图，其中绘制了标记，一旦我单击一个标记，它就会添加圆圈以显示标记的所有相关点。

我想要做的是以所有相关圆圈都可见的方式设置地图的缩放/视图。

圆圈的数量因标记而异，即有些标记有 1 或 2 个圆圈，而有些则有更多。此外，圆圈的位置在美国各地各不相同，因此它们可以放置在一个城市或另一个州。

以下是我用来向现有地图添加圆圈的代码

  proxy <-leafletProxy("map",data = df)%>%
  clearMarkers()%>%
  addCircleMarkers(lat = ~lat,lng = ~lng,layerId = ~circle_pt,fillColor = 
 'green',opacity = 0.5,color = 'red',fillOpacity = 1)%>% clearPopups()%>%
  addPopups(lat=~lat,lng=~lng,~as.character(circle_pt))

map=带有标记的原始地图 df=lat lng 与地图中选定标记的相关属性的圆圈

我想设置缩放级别，如图 2 所示。

请帮助我确定如何计算shiny.

问候，

我有一个启用了过滤器的数据表，我想从此数据表中读取选定的行。

如果未应用过滤器，则 input$table_rows_selected 工作正常，但是一旦我对数据应用过滤器，则不会返回正确的行索引。

ui <- function(id) {
  fluidPage(
    title = "Job Tracker",

    fluidRow(
      column(width=6,
             selectInput("pickvalue", label = "Pick a Value", choices = unique(iris$Species))
      )
    ),

    br(),
    fluidRow(
      column(12,
             DT::dataTableOutput("job_data")

      )

    ),
    br(),
    fluidRow(
      column(12,DT::dataTableOutput("x4"))
    )
  )

}

server <- function(input, output, session)
{
      output$job_data  <- DT::renderDataTable({
      datatable(iris[iris$Species==input$pickvalue,],selection = "single")
      })

    output$x4 <- DT::renderDataTable({
      s <- input$job_data_rows_selected
      datatable(iris[s,])
    })

}