R /单张：使LayersControl出现的点击，而不是悬停后

  • Z时代
  • 2024-01-10
  • 分类：问答

请参阅以下MWE：R /单张：使LayersControl出现的点击，而不是悬停后

library(shiny) 
library(leaflet) 
ui <- fluidPage(leafletOutput("mymap")) 
server <- function(input, output, session) { 
    output$mymap <- renderLeaflet({ 
    leaflet() %>% 
     addProviderTiles(
     providers$Stamen.TonerLite, 
     group = 'stamen', 
     options = providerTileOptions(noWrap = TRUE) 
    ) %>% 
     addProviderTiles(providers$CartoDB.Positron, group = 'cartodb') %>% 
     addLayersControl(baseGroups = c('stamen', 'cartodb'), 
         position = 'bottomleft') 
    }) 
} 
shinyApp(ui, server)

的标准行为的LayerControl（addLayersControl）是用户将鼠标悬停在图标后出现。相反，我想在点击它之后查看图层选项。标准的addLayersControl函数不提供这样的功能。有人知道解决方法吗？

回答：

我不知道[R但在JS，你需要选择collapsed添加到您的L.control.layers 现在，如果你要打开的控制，你必须调用此：

$(".leaflet-control-layers").addClass("leaflet-control-layers-expanded");

如果你想关闭它：

$(".leaflet-control-layers").removeClass("leaflet-control-layers-expanded");

以上是 R /单张：使LayersControl出现的点击，而不是悬停后 的全部内容， 来源链接： utcz.com/qa/263463.html

回到顶部