Сохранение графика Tmap в блестящем - PullRequest
Новая
       92

Сохранение графика Tmap в блестящем

0 голосов
/ 10 июля 2020

Я хочу добавить возможность пользователям экспортировать карту , созданную Tmap , в Shiny. Я понимаю, что tmap преобразует карту в буклет, но он не работает с mapview :: mapshot, поскольку многие ответы дают для сохранения Leaflet карт в Shiny.

Ни одно из следующих действий: 

map_expr <- reactive({
    tm_shape(water1) +
      tm_fill(col = "darkblue") +
    tm_shape(county_outlines) +
      tm_borders(col = "black") +
    tm_shape(herd_summary) +
      tm_symbols(col = "green", size = "REACTORS", scale = 0.15, alpha = 0.7) +
    tm_shape(water1) +
      tm_fill(col = "darkblue")
  })
  
  observe({
    output$map <- renderTmap({
      map_expr()
    })
  })

output$downloadData <- downloadHandler(
    filename = "test.png",
    content = function(file) {
      # mapshot(map_expr(), file = file, cliprect = "viewport")
      # tmap_save(map_expr(), file = file)
      tmapProxy("map", session, {}) %>%
        mapview::mapshot(file = file)
    }
  )
...