mapview和闪亮:如何交互更改调色板

时间:2018-07-01 21:06:24

标签: r shiny leaflet reactive

我想使用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)

1 个答案:

答案 0 :(得分:0)

我可以确认,通过使输入数据和mapview对象具有反应性,mapview和闪亮的工作就像@map hack一样具有魅力。与leaflet-easyprint plugin结合使用,它是用于创建和导出地图的非常有用的工具。