Сохранение листовок в формате PDF - PullRequest
Новая
       6

Сохранение листовок в формате PDF

0 голосов
/ 13 октября 2019

Я пытаюсь сохранить карту в листовке в формате PDF. Мне удалось это сделать - хотя точка в векторной графике, а фон от провайдера нет - есть ли как сделать все это в векторной графике? Так что addProviderTiles также есть в векторной графике?

Код сохранения: 

library(mapview)
library(leaflet)
library(maps)

m <- leaflet() %>% addProviderTiles("CartoDB.Positron") %>% 
  addCircles(lat=df$latitude,lng=df$longitude, radius = 300, color = "green", opacity = 0.25, weight = 7) %>% 
  addCircles(lat=df2$latitude,lng=df2$longitude, radius = 300, color = "#FC4E07", opacity = 0.25, weight = 7) %>% 
addGraticule(group = "Graticule") %>%
  addLayersControl(overlayGroups = c("Graticule"),options = layersControlOptions(collapsed = FALSE)) %>% 
  addPolygons(data = world, col = 'black', fillOpacity = 0.0001, smoothFactor = 0.0001, weight = 2) %>% 
  addLegend(position = 'bottomright', colors = c("green", "#FC4E07"), labels = c("Yes", "No"), opacity = 0.8,title = 'Succes of Attack') %>% 
  setView(lng = 20, lat = 47, zoom = 04.05)


m


library(mapview)
mapshot(m, file = "saveaspdf.pdf") #SAVING PDF
...