我想使用mapview
程序包-它非常快-闪亮。
为了渲染mapview
对象,@map
的技巧就像是一个吊饰。
但是,与ggplot2
相对,使mapview_leaflet
对象具有反应性,是非常复杂的。在我闪亮的应用程序中,我想使调色板具有交互性。有可能吗?
library(mapview)
library(shiny)
server <- function(input, output) {
output$test <- renderLeaflet({
req(input$obs)
rws <- input$obs
mapview(breweries91[1:rws,])@map
})
}
ui <- fluidPage(
sidebarLayout(
sidebarPanel(
sliderInput("obs", "Number of observations:", min = 1, max = nrow(breweries91@data), value = nrow(breweries91@data))
),
mainPanel(
leafletOutput('test')
)
)
)
shinyApp(ui = ui, server = server)
答案 0 :(得分:0)
我可以确认,通过使输入数据和mapview对象具有反应性,mapview和闪亮的工作就像@map hack一样具有魅力。与leaflet-easyprint plugin结合使用,它是用于创建和导出地图的非常有用的工具。