## Not run: 
# if (require(tmap)) {
#     data(Europe)
# 
#     # show different simplification factors
#     tm1 <- qtm(Europe %>% simplify_shape(fact = 0.05), title="Simplify 0.05")
#     tm2 <- qtm(Europe %>% simplify_shape(fact = 0.1), title="Simplify 0.1")
#     tm3 <- qtm(Europe %>% simplify_shape(fact = 0.2), title="Simplify 0.2")
#     tm4 <- qtm(Europe %>% simplify_shape(fact = 0.5), title="Simplify 0.5")
#     tmap_arrange(tm1, tm2, tm3, tm4)
# 
#     # show different options for keeping smaller (sub)units
#     tm5 <- qtm(Europe %>% simplify_shape(keep.units = TRUE, keep.subunits = TRUE),
#         title="Keep units and subunits")
#     tm6 <- qtm(Europe %>% simplify_shape(keep.units = TRUE, keep.subunits = FALSE),
#         title="Keep units, ignore small subunits")
#     tm7 <- qtm(Europe %>% simplify_shape(keep.units = FALSE),
#         title="Ignore small units and subunits")
#     tmap_arrange(tm5, tm6, tm7)
# }
# ## End(Not run)
Run the code above in your browser using DataLab