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. В сочетании с плагином leaflet-easyprint это очень полезный инструмент для создания и экспорта карт.