presentation

presentation_master_map.R

suppressPackageStartupMessages(library(mapview))
suppressPackageStartupMessages(library(sf))

mapviewOptions(
  basemaps = c(
    "Esri.WorldImagery",  "OpenTopoMap", 
    "CartoDB.Positron", "CartoDB.DarkMatter",
    "OpenStreetMap"
  )
)
peru <- st_point(c(-77.09360, -11.96751)) %>% 
  st_sfc(crs = 4326) %>% 
  st_sf(location = "Lima, Peru")
austria <- st_point(c(13.04570, 47.79966)) %>% 
  st_sfc(crs = 4326) %>% 
  st_sf(location = "Salzburg, Austria")

Journey <- st_linestring(
  matrix(
    data = c(-77.09360, 13.04570, -11.96751, 47.79966),
    nrow = 2
  )
) %>% 
  st_sfc(crs = 4326) %>% 
  st_sf(location = "travel")

Legend <- rbind(peru, austria)
m <- mapview(Journey, color = "red",  lwd = 3, legend = FALSE, homebutton = FALSE) +
  mapview(Legend, legend = FALSE, homebutton = FALSE)
m <- addLogo(m, "https://user-images.githubusercontent.com/16768318/84294830-5c52a280-ab0f-11ea-8e06-12f55c6781c9.png",
        position = "bottomright",
        offset.x = 50,
        offset.y = 50,
        width = 120,
        height = 40)
m

image

• https://user-images.githubusercontent.com/16768318/84294830-5c52a280-ab0f-11ea-8e06-12f55c6781c9.png