Экспорт / Загрузка листовки карты в блестящем формате? - PullRequest
Новая
       6

Экспорт / Загрузка листовки карты в блестящем формате?

0 голосов
/ 10 января 2019

Я создал блестящую панель для анализа преступлений в Чикаго. Поэтому я также построил листовую карту Чикаго, где по маркерам мы можем видеть, сколько преступлений произошло в каком районе Чикаго. У меня есть три виджета фильтра (Дата, Тип преступления и Местоположение). На основе этих 3 виджетов пользователь может поиграть, и каждый раз карта строится снова с выбранными входами. Все работает отлично и отлично, я просто хотел бы добавить раздел «Скачать», где ТЕКУЩИЙ УЧАСТОК С МАРКЕРАМИ можно экспортировать в другой формат (png, pdf ...). Мой дашборд выглядит так:

Панель инструментов - Страница карты

Как видите, я хотел бы дать пользователю выбор, какой формат экспорта он хотел бы иметь. Я попробовал некоторый код, но он не работал.

My ui.R: 

tabItem(tabName = "map",

      fluidRow(

        column(width = 9,
        # Main plot
        box(
          title = "Chicago Map", 
          status = "danger", 
          solidHeader = TRUE,
          width = NULL,
          height = NULL,
          #tags$style(type = "text/css", "#map {height: calc(100vh - 80px) !important;}"),
          leafletOutput("map",height = "95vh")
        )),

        column(width = 3,
        box(
          title = "Date", 
          status = "primary", 
          solidHeader = TRUE,
          width = NULL,
          #height = 142,
          sliderInput("mapYear", label = "Select Year", min = 2001, max = 2016, step = 1, sep = '', value = c(2001,2016))
        ),

        box(
          title = "Crime Type", 
          status = "primary", 
          solidHeader = TRUE,
          width = NULL,
          selectInput("mapCrimeType", label= "Select Crime Type", choices = unique(cc$Primary.Type), multiple = TRUE)
        ),

        box(
          title = "Location", 
          status = "primary", 
          solidHeader = TRUE,
          width = NULL,
          selectInput("mapLocation", label= "Select Location", choices = unique(cc$Location.Description), multiple = TRUE)
        ),

        box(
          title = "Download", 
          status = "success", 
          solidHeader = TRUE,
          width = NULL,
          radioButtons("mapFormat", "Document format", c("PNG"="png", "EPS"="eps", "PDF"="pdf"), inline = TRUE, selected = "png"),
          downloadButton("mapDownload")
        )
      )
    )
  ),

А мой сервер вот так: 

  ### Draw Map ###
  output$map = renderLeaflet({
    m <- leaflet() %>% 
      addProviderTiles(providers$Esri.WorldStreetMap) %>% 
      setView(lng = -87.623177, lat = 41.881832, zoom=11)
  }) 

  reactMap = reactive({
    cc %>%
      filter(Primary.Type %in% input$mapCrimeType &
               Location.Description %in% input$mapLocation &
               Year2 %in% cbind(input$mapYear[1],input$mapYear[2]))
  })

  observe({
    proxy = leafletProxy("map", data = reactMap()) %>%
      clearMarkers() %>%
      clearMarkerClusters() %>%
      addCircleMarkers(clusterOptions = markerClusterOptions(),
                       lng =~ Longitude, lat =~ Latitude, radius = 5, group = 'Cluster', 
                       popup =~ paste('<b><font color="Black">', 'Crime Information', 
                                      '</font></b><br/>', 'Crime Type:', Primary.Type,'<br/>',
                                      'Date:', Date,'<br/>', #'Time:', Time,'<br/>',
                                      'Location:', Location.Description,'<br/>', 'Block:', Block, '<br/>', 'Arrest:', Arrest, '<br/>'))
  })  

  fnMap <- reactive({paste(input$mapCrimeType,input$mapLocation,sep = ".")})
  doMap <- reactive({input$mapFormat})

  # Download current plot
  output$mapDownload <- downloadHandler(
    filename = fnMap,
    content = function(file) {
      mapshot(m, file)
    }
  )

Есть ли у кого-нибудь идея или предложение? Я был бы очень рад решить эту проблему. Большое спасибо заранее!

ОБНОВЛЕНИЕ: Кто-нибудь знает, как решить мой код? Другие посты с похожими проблемами у меня не работают.

...