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

Question

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

Answer 1

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