7. ceci constitue la fin du pipe

## maptools (NA -> 1.1-2) [CRAN]
## rgeos    (NA -> 0.5-8) [CRAN]
##   
   checking for file ‘/tmp/RtmpD6sKLk/remotes107e25472e5de/hrbrmstr-albersusa-07aa87f/DESCRIPTION’ ...
  
✔  checking for file ‘/tmp/RtmpD6sKLk/remotes107e25472e5de/hrbrmstr-albersusa-07aa87f/DESCRIPTION’
## 
  
─  preparing ‘albersusa’:
## 
  
   checking DESCRIPTION meta-information ...
  
✔  checking DESCRIPTION meta-information
## 
  
─  checking for LF line-endings in source and make files and shell scripts
## 
  
─  checking for empty or unneeded directories
## ─  building ‘albersusa_0.4.1.tar.gz’
## 
  
   
## 

mapview can be used in piped expressions using %>%, most likely at the very end of it…

Here are just a few examples of piped workflows:

plotting feature unions

library(mapview)
library(poorman)
library(leaflet)
library(sf)
# GitHub: hrbrmstr/albersusa
library(albersusa)

franconia %>%
  st_union %>%
  plot

mapviewing feature unions

franconia %>%
  st_union %>%
  mapview

union by district

districts by area

counties by area

franconia %>%
  mutate(area = as.numeric(st_area(.))) %>%
  mapview(zcol = "area", legend = TRUE)

breweries colored by district

breweries %>%
  st_intersection(franconia) %>%
  mapview(zcol = "district")

number of breweries by county

franconia %>%
  mutate(count = lengths(st_contains(., breweries))) %>%
  mapview(zcol = "count")

brewery density by county

franconia %>%
  mutate(count = lengths(st_contains(., breweries)),
         density = count / as.numeric(st_area(.))) %>%
  mapview(zcol = "density")

using native.crs for a USA composite map

albersusa::usa_composite("laea") %>%
  mapview(native.crs = TRUE, zcol = "pop_2014", legend = TRUE)