Leaftlet允许有限的控制位置,如"topleft“或"topright”。如何在Shiny (从leaflet.extra包中搜索)中设置传单搜索框的位置?下面是一个最小的例子:
library(leaflet)
library(leaflet.extras)
library(shiny)
ui <- fillPage(leafletOutput("mymap"))
server <- function(input, output, session) {
output$mymap <- renderLeaflet({
leaflet() %>%
addProviderTiles(providers$Esri.WorldStreetMap) %>%
addSearchOSM()
})
}
shinyApp(ui, server)
如何将搜索框设置在任意位置?(例如,top center?)
浏览器检查为我提供了一些元素:
<a class="search-button" href="#" title="Search using Google Geocoder" style="outline: none;"></a>
我用css做了什么尝试:
library(leaflet)
library(leaflet.extras)
library(shiny)
ui <- fillPage(
tags$head(tags$style(
HTML('leaflet-search-button {margin-top: 100px;}
'))
),
leafletOutput("mymap")
)
server <- function(input, output, session) {
output$mymap <- renderLeaflet({
leaflet() %>%
addProviderTiles(providers$Esri.WorldStreetMap) %>%
addSearchOSM()
})
}
shinyApp(ui, server)
发布于 2018-06-11 16:52:36
您可以使用leaflet-control-search
选择器。需要使用!important
才能覆盖默认页边距。
tags$head(tags$style(
HTML('.leaflet-control-search {
margin-top: 100px !important;
}')
))
https://stackoverflow.com/questions/50784073
复制相似问题