24 |
51 |
52 |
53 |
54 |
55 |
86 |
87 |
88 |
89 |
90 |
91 |
92 |
93 |
94 |
--------------------------------------------------------------------------------
/R/plot_route.R:
--------------------------------------------------------------------------------
1 | #' Plot Road Trip Route
2 | #'
3 | #'Plot multiple stops on a route `plot_route`. This function produces a html object so in order to save the image as an .svg (for printable visuals) check out the `save_map_svg()`.
4 | #'
5 | #'For more information on how to integrate the MapBox API to make beautiful maps, check out [this blog](https://bensstats.wordpress.com/2021/10/25/robservations-16-using-the-mapbox-api-with-leaflet/).
6 | #'
7 | #'
8 | #' @param addresses the stops on your route
9 | #' @param how routing profile(s) to use, e.g. "car", "bike" or "foot" (when using the routing.openstreetmap.de test server). n-1 routing profiles are required for for n addresses
10 | #' @param colour what colour you want the route line to be colored
11 | #' @param opacity line opacity - a value between 0 and 1
12 | #' @param weight Line thickness
13 | #' @param radius Point size
14 | #' @param label_text Optional. Alternative text to display as the address labels.
15 | #' @param label_position where to place the label relative to the point ("bottom", "top", "left", "right")
16 | #' @param font font-family css property
17 | #' @param font_weight font-weight css property
18 | #' @param font_size font-size css property
19 | #' @param text_indent text indent css property
20 | #' @param mapBoxTemplate the MapBox template you want to use.
21 | #' @param zoomControl The zoom control for your bounding box. Default format is `c(lng1,lat1,lng2,lat2)`
22 | #' @importFrom osrm osrmRoute
23 | #' @importFrom sf st_geometry
24 | #' @importFrom magrittr %>%
25 | #' @importFrom tibble tibble
26 | #' @importFrom tibble as_tibble
27 | #' @importFrom tidygeocoder geocode
28 | #' @importFrom dplyr transmute
29 | #' @importFrom purrr set_names
30 | #' @importFrom geosphere gcIntermediate
31 | #' @import leaflet
32 | #' @export
33 | #' @examples
34 | #'
35 | #' viz<- plot_route(c("Toronto","Niagara Falls","Monsey"),
36 | #' how="car",
37 | #' font="Courier",
38 | #' label_position="right",
39 | #' weight=1.5)
40 | #'
41 | #' viz
42 | #'
43 |
44 |
45 |
46 |
47 | plot_route <- function(addresses,
48 | how = c("car", "bike", "foot"),
49 | colour = "black",
50 | opacity = 1,
51 | weight = 1,
52 | radius = 2,
53 | label_text = addresses,
54 | label_position = "bottom",
55 | font = "Lucida Console",
56 | font_weight = "bold",
57 | font_size = "14px",
58 | text_indent = "15px",
59 | mapBoxTemplate = "//{s}.tile.openstreetmap.org/{z}/{x}/{y}.png",
60 | zoomControl = c(0.1, 0.1, -0.1, -0.1)) {
61 | address_single <- tibble(singlelineaddress = addresses) %>%
62 | geocode(address = singlelineaddress, method = 'arcgis') %>%
63 | transmute(id = singlelineaddress, lon = long, lat = lat)
64 |
65 |
66 | trip <- list()
67 |
68 | for (i in 1:(nrow(address_single) - 1)) {
69 | trip[[i]] <- osrmRoute(
70 | src = address_single[i, 2:3] %>% c %>% unlist,
71 | dst = address_single[i + 1, 2:3] %>% c %>% unlist,
72 | overview = "full",
73 | osrm.profile = how[i]
74 | )
75 | }
76 | trip <- do.call(rbind, trip)
77 |
78 | trip <- do.call(rbind, st_geometry(trip)) %>%
79 | as_tibble(.name_repair = "unique") %>%
80 | set_names(c("lon", "lat")) %>%
81 | as.data.frame() %>%
82 | as.matrix()
83 |
84 | m <- leaflet(trip,
85 | options = leafletOptions(zoomControl = FALSE, attributionControl =
86 | FALSE)) %>%
87 | fitBounds(
88 | lng1 = max(address_single$lon) + zoomControl[1],
89 | lat1 = max(address_single$lat) + zoomControl[2],
90 | lng2 = min(address_single$lon) + zoomControl[3],
91 | lat2 = min(address_single$lat) + zoomControl[4]
92 | ) %>%
93 | addTiles(urlTemplate = mapBoxTemplate) %>%
94 | addCircleMarkers(
95 | lat = address_single$lat,
96 | lng = address_single$lon,
97 | color = colour,
98 | stroke = TRUE,
99 | radius = radius,
100 | fillOpacity = opacity
101 | ) %>%
102 | addPolylines(
103 | lng = trip[, 1],
104 | lat = trip[, 2],
105 | color = colour,
106 | opacity = opacity,
107 | weight = weight
108 | ) %>%
109 | addLabelOnlyMarkers(
110 | address_single$lon,
111 | address_single$lat,
112 | label = label_text,
113 | labelOptions = labelOptions(
114 | noHide = T,
115 | direction = label_position,
116 | textOnly = T,
117 | style = list(
118 | "font-family" = font,
119 | "font-weight" = font_weight,
120 | "font-size" =
121 | font_size,
122 | "text-indent" =
123 | text_indent,
124 | "color" = colour
125 | )
126 | )
127 | )
128 |
129 | m
130 | }
131 |
--------------------------------------------------------------------------------
/docs/authors.html:
--------------------------------------------------------------------------------
1 |
2 |
56 |
71 |
72 |
73 |
74 |
85 |
57 |
64 |
65 |
69 |
70 |
58 |
60 |
61 | Content not found. Please use links in the navbar.
62 |
63 | Page not found (404)
59 |`, then ``, etc.) that has more than one element. Defaults to 1 (for ``).
76 | getTopLevel: function($scope) {
77 | for (var i = 1; i <= 6; i++) {
78 | var $headings = this.findOrFilter($scope, 'h' + i);
79 | if ($headings.length > 1) {
80 | return i;
81 | }
82 | }
83 |
84 | return 1;
85 | },
86 |
87 | // returns the elements for the top level, and the next below it
88 | getHeadings: function($scope, topLevel) {
89 | var topSelector = 'h' + topLevel;
90 |
91 | var secondaryLevel = topLevel + 1;
92 | var secondarySelector = 'h' + secondaryLevel;
93 |
94 | return this.findOrFilter($scope, topSelector + ',' + secondarySelector);
95 | },
96 |
97 | getNavLevel: function(el) {
98 | return parseInt(el.tagName.charAt(1), 10);
99 | },
100 |
101 | populateNav: function($topContext, topLevel, $headings) {
102 | var $context = $topContext;
103 | var $prevNav;
104 |
105 | var helpers = this;
106 | $headings.each(function(i, el) {
107 | var $newNav = helpers.generateNavItem(el);
108 | var navLevel = helpers.getNavLevel(el);
109 |
110 | // determine the proper $context
111 | if (navLevel === topLevel) {
112 | // use top level
113 | $context = $topContext;
114 | } else if ($prevNav && $context === $topContext) {
115 | // create a new level of the tree and switch to it
116 | $context = helpers.createChildNavList($prevNav);
117 | } // else use the current $context
118 |
119 | $context.append($newNav);
120 |
121 | $prevNav = $newNav;
122 | });
123 | },
124 |
125 | parseOps: function(arg) {
126 | var opts;
127 | if (arg.jquery) {
128 | opts = {
129 | $nav: arg
130 | };
131 | } else {
132 | opts = arg;
133 | }
134 | opts.$scope = opts.$scope || $(document.body);
135 | return opts;
136 | }
137 | },
138 |
139 | // accepts a jQuery object, or an options object
140 | init: function(opts) {
141 | opts = this.helpers.parseOps(opts);
142 |
143 | // ensure that the data attribute is in place for styling
144 | opts.$nav.attr('data-toggle', 'toc');
145 |
146 | var $topContext = this.helpers.createChildNavList(opts.$nav);
147 | var topLevel = this.helpers.getTopLevel(opts.$scope);
148 | var $headings = this.helpers.getHeadings(opts.$scope, topLevel);
149 | this.helpers.populateNav($topContext, topLevel, $headings);
150 | }
151 | };
152 |
153 | $(function() {
154 | $('nav[data-toggle="toc"]').each(function(i, el) {
155 | var $nav = $(el);
156 | Toc.init($nav);
157 | });
158 | });
159 | })();
160 |
--------------------------------------------------------------------------------
/R/plot_hybrid_route.R:
--------------------------------------------------------------------------------
1 | #' Plot Hybrid Route
2 | #'
3 | #'Plot multiple stops on a route `plot_hybrid route()`. This function produces a html object so in order to save the image as an .svg (for printable visuals) check out the `save_map_svg()`. This function differs from `plot_route()` and `plot_flights()` as it accomidates a hybrid route where some locations are traveled via flight and others are traveled via car, bike or foot.
4 | #'
5 | #'@param addresses The stops on your route
6 | #'@param how Routing profile(s) to use, e.g. "car", "bike" or "foot" (when using the routing.openstreetmap.de test server) AND "flight". n-1 routing profiles are required for for n addresses
7 | #'@param colour what colour you want the route line to be colored
8 | #'@param opacity line opacity - a value between 0 and 1
9 | #'@param weight Line thickness
10 | #'@param radius Point size
11 | #'@param label_text Optional. Alternative text to display as the address labels.
12 | #'@param label_position where to place the label relative to the point ("bottom", "top", "left", "right")
13 | #'@param font font-family css property
14 | #'@param font_weight font-weight css property
15 | #'@param font_size font-size css property
16 | #'@param text_indent text indent css property
17 | #' @param mapBoxTemplate The MapBox template you want to use.
18 | #'@param nCurves flight path smoothness. I have found setting this to 100 works best, but feel free to play around with it.
19 | #'@param zoomControl The zoom control for your bounding box. Default Format is `c(lng1,lat1,lng2,lat2)`
20 | #'@importFrom osrm osrmRoute
21 | #'@importFrom sf st_geometry
22 | #'@importFrom magrittr %>%
23 | #'@importFrom tibble tibble
24 | #'@importFrom tibble as_tibble
25 | #'@importFrom tidygeocoder geocode
26 | #'@importFrom dplyr transmute
27 | #'@importFrom purrr set_names
28 | #'@importFrom geosphere gcIntermediate
29 | #'@import leaflet
30 | #'@export
31 | #'@examples
32 | #'plot_hybrid_route(c("Detroit","Toronto","MKE"),
33 | #' c("car","flight"))
34 |
35 |
36 | plot_hybrid_route <- function(addresses,
37 | how = c("car", "flight", "bike", "foot"),
38 | colour = "black",
39 | opacity = 1,
40 | weight = 1,
41 | radius = 2,
42 | label_text = addresses,
43 | label_position = "bottom",
44 | font = "Lucida Console",
45 | font_weight = "bold",
46 | font_size = "14px",
47 | text_indent = "15px",
48 | mapBoxTemplate = "//{s}.tile.openstreetmap.org/{z}/{x}/{y}.png",
49 | nCurves = 100,
50 | zoomControl = c(0.1, 0.1, -0.1, -0.1)) {
51 | address_single <- tibble(singlelineaddress = addresses) %>%
52 | geocode(address = singlelineaddress, method = 'arcgis') %>%
53 | transmute(id = singlelineaddress, lon = long, lat = lat)
54 |
55 | trip <- matrix(nrow = 1, ncol = 2)
56 |
57 |
58 | for (i in 1:(nrow(address_single) - 1)) {
59 | if (how[i] == "flight") {
60 | trip <- rbind(
61 | trip,
62 | gcIntermediate(
63 | address_single[i, 2:3],
64 | address_single[i + 1, 2:3],
65 | n = nCurves,
66 | addStartEnd = T
67 | )
68 | )
69 | } else{
70 | roadTrip <- osrmRoute(
71 | src = address_single[i, 2:3] %>% c %>% unlist,
72 | dst = address_single[i + 1, 2:3] %>% c %>% unlist,
73 | overview = "full",
74 | osrm.profile = how[i]
75 | )
76 |
77 |
78 | roadTrip <- do.call(rbind, st_geometry(roadTrip)) %>%
79 | as_tibble(.name_repair = "unique") %>%
80 | set_names(c("lon", "lat")) %>%
81 | as.data.frame() %>%
82 | as.matrix()
83 |
84 | trip <- rbind(trip, roadTrip)
85 | }
86 |
87 | }
88 |
89 |
90 | m <- leaflet(trip,
91 | options = leafletOptions(zoomControl = FALSE, attributionControl =
92 | FALSE)) %>%
93 | fitBounds(
94 | lng1 = max(address_single$lon) + zoomControl[1],
95 | lat1 = max(address_single$lat) + zoomControl[2],
96 | lng2 = min(address_single$lon) + zoomControl[3],
97 | lat2 = min(address_single$lat) + zoomControl[4]
98 | ) %>%
99 | addTiles(urlTemplate = mapBoxTemplate) %>%
100 | addCircleMarkers(
101 | lat = address_single$lat,
102 | lng = address_single$lon,
103 | color = colour,
104 | stroke = TRUE,
105 | radius = radius,
106 | fillOpacity = opacity
107 | ) %>%
108 | addPolylines(
109 | lng = trip[, 1],
110 | lat = trip[, 2],
111 | color = colour,
112 | opacity = opacity,
113 | weight = weight
114 | ) %>%
115 | addLabelOnlyMarkers(
116 | address_single$lon,
117 | address_single$lat,
118 | label = label_text,
119 | labelOptions = labelOptions(
120 | noHide = T,
121 | direction = label_position,
122 | textOnly = T,
123 | style = list(
124 | "font-family" = font,
125 | "font-weight" = font_weight,
126 | "font-size" =
127 | font_size,
128 | "text-indent" =
129 | text_indent,
130 | "color" = colour
131 | )
132 | )
133 | )
134 |
135 | m
136 | }
137 |
--------------------------------------------------------------------------------
/R/plot_route_flex.R:
--------------------------------------------------------------------------------
1 | #' Plot Road Trip Route With More Flexibility
2 | #'
3 | #'DISCLAIMER: the `_flex()` functions offer more flexibility in label placement and will offer new features under development for the `mapBliss` package. These functions will be subject to change more regularly than the standard functions.
4 | #'
5 | #'DOCUMENTATION IS NEEDED
6 | #'
7 | #'Plot multiple stops on a route `plot_route_flex()`. This function produces a html object so in order to save the image as an .svg (for printable visuals) check out the `save_map_svg()`.
8 | #'
9 | #'For more information on how to integrate the MapBox API to make beautiful maps, check out [this blog](https://bensstats.wordpress.com/2021/10/25/robservations-16-using-the-mapbox-api-with-leaflet/).
10 | #'
11 | #'
12 | #' @param addresses the stops on your route
13 | #' @param how routing profile(s) to use, e.g. "car", "bike" or "foot" (when using the routing.openstreetmap.de test server). n-1 routing profiles are required for for n addresses
14 | #' @param colour what colour you want the route line to be colored
15 | #' @param opacity line opacity - a value between 0 and 1
16 | #' @param weight Line thickness
17 | #' @param radius Point size
18 | #' @param label_text Optional. Alternative text to display as the address labels.
19 | #' @param label_position where to place teach of the labels relative to the points ("bottom", "top", "left", "right")
20 | #' @param font font-family css property
21 | #' @param font_weight font-weight css property
22 | #' @param font_size font-size css property
23 | #' @param text_indent text indent css property
24 | #' @param mapBoxTemplate the MapBox template you want to use.
25 | #' @param zoomControl The zoom control for your bounding box. Default format is `c(lng1,lat1,lng2,lat2)`
26 | #' @importFrom osrm osrmRoute
27 | #' @importFrom sf st_geometry
28 | #' @importFrom magrittr %>%
29 | #' @importFrom tibble tibble
30 | #' @importFrom tibble as_tibble
31 | #' @importFrom tidygeocoder geocode
32 | #' @importFrom dplyr transmute
33 | #' @importFrom purrr set_names
34 | #' @importFrom geosphere gcIntermediate
35 | #' @import leaflet
36 | #' @export
37 | #' @examples
38 | #'
39 | #'viz_1<-plot_hybrid_flex(addresses=c("Amsterdam","London","Newcastle upon Tyne"),
40 | #' how=c("car","car"),
41 | #' weight=3,
42 | #' colour="red",
43 | #' label_position = c("left","left","left"),
44 | #' text_indent= c("-6em","-5em","-13em"),
45 | #' mapBoxTemplate="//{s}.tile.openstreetmap.org/{z}/{x}/{y}.png"
46 | #' )
47 | #'viz_1
48 |
49 |
50 |
51 | plot_route_flex <- function(addresses,
52 | how = c("car", "bike", "foot"),
53 | colour = "black",
54 | opacity = 1,
55 | weight = 1,
56 | radius = 2,
57 | label_text = addresses,
58 | label_position = "bottom",
59 | font = "Lucida Console",
60 | font_weight = "bold",
61 | font_size = "14px",
62 | text_indent = "15px",
63 | mapBoxTemplate = "//{s}.tile.openstreetmap.org/{z}/{x}/{y}.png",
64 | zoomControl = c(0.1, 0.1, -0.1, -0.1)) {
65 | address_single <- tibble(singlelineaddress = addresses) %>%
66 | geocode(address = singlelineaddress, method = 'arcgis') %>%
67 | transmute(id = singlelineaddress, lon = long, lat = lat)
68 |
69 |
70 | trip <- list()
71 |
72 | for (i in 1:(nrow(address_single) - 1)) {
73 | trip[[i]] <- osrmRoute(
74 | src = address_single[i, 2:3] %>% c %>% unlist,
75 | dst = address_single[i + 1, 2:3] %>% c %>% unlist,
76 | overview = "full",
77 | osrm.profile = how[i]
78 | )
79 | }
80 | trip <- do.call(rbind, trip)
81 |
82 | trip <- do.call(rbind, st_geometry(trip)) %>%
83 | as_tibble(.name_repair = "unique") %>%
84 | set_names(c("lon", "lat")) %>%
85 | as.data.frame() %>%
86 | as.matrix()
87 |
88 | m <- leaflet(trip,
89 | options = leafletOptions(zoomControl = FALSE, attributionControl =
90 | FALSE)) %>%
91 | fitBounds(
92 | lng1 = max(address_single$lon) + zoomControl[1],
93 | lat1 = max(address_single$lat) + zoomControl[2],
94 | lng2 = min(address_single$lon) + zoomControl[3],
95 | lat2 = min(address_single$lat) + zoomControl[4]
96 | ) %>%
97 | addTiles(urlTemplate = mapBoxTemplate) %>%
98 | addCircleMarkers(
99 | lat = address_single$lat,
100 | lng = address_single$lon,
101 | color = colour,
102 | stroke = TRUE,
103 | radius = radius,
104 | fillOpacity = opacity
105 | ) %>%
106 | addPolylines(
107 | lng = trip[, 1],
108 | lat = trip[, 2],
109 | color = colour,
110 | opacity = opacity,
111 | weight = weight
112 | )
113 |
114 | for (i in 1:nrow(address_single)) {
115 | m <- m %>%
116 | addLabelOnlyMarkers(
117 | address_single$lon[i],
118 | address_single$lat[i],
119 | label = label_text[i],
120 | labelOptions = labelOptions(
121 | noHide = T,
122 | direction = label_position[i],
123 | textOnly = T,
124 | style =
125 | list(
126 | "font-family" = font,
127 | "font-weight" = font_weight,
128 | "font-size" = font_size,
129 | "padding" = text_indent[i],
130 | "color" = colour
131 | )
132 | )
133 | )
134 | }
135 |
136 |
137 | m
138 | }
139 |
--------------------------------------------------------------------------------
/README.md:
--------------------------------------------------------------------------------
1 | # mapBliss 
2 |
3 | Create beautiful maps of your adventures with Leaflet in R.
4 |
5 | **If you want to learn how you can contribute to this project, feel free to contact me via my [website](https://bensstats.wordpress.com)**.
6 |
7 | **Do you see have a feature idea that you think would make mapBliss better? Feel free to [open an issue](https://github.com/benyamindsmith/mapBliss/issues) and make a feature request!**
8 |
9 | **If you are interested in making star maps, check out [`starBliss`](https://github.com/benyamindsmith/starBliss)**
10 |
11 |
12 |
13 | Table of Contents
14 |
15 |
16 |
17 | * [Introduction](https://github.com/benyamindsmith/mapBliss/main/README.md#introduction)
18 |
19 | * [Cronology and Updates](https://github.com/benyamindsmith/mapBliss/main/README.md#cronology-and-updates)
20 |
21 | * [Installing This Package](https://github.com/benyamindsmith/mapBliss/blob/main/README.md#installing-this-package)
22 |
23 | * [Dependencies](https://github.com/benyamindsmith/mapBliss/blob/main/README.md#dependencies)
24 |
25 | * [Some Example Visuals](https://github.com/benyamindsmith/mapBliss/blob/main/README.md#some-example-visuals)
26 |
27 |
28 |
29 |
30 |
31 | Introduction
32 |
33 |
34 |
35 | This package is based functions I created for creating print-quality souvenir maps like the ones you can find on (the now [defunct](https://www.reddit.com/r/KaraAndNate/comments/16lynaf/atlasco_is_shutting_down/)) [Atlas.co](atlas.co/products/map).
36 |
37 | __Update:__ Atlas.co announced that it has shut down, (see [here](https://www.reddit.com/r/KaraAndNate/comments/16lynaf/atlasco_is_shutting_down/)). `mapBliss` is still ready to use!
38 |
39 |
40 |
41 | Screenshot of reddit post.
42 |
43 | 
44 |
45 |
46 | For some background on how this package came to be and for updates. Feel free to check out my blogs on the topic [here](https://bensstats.wordpress.com/?s=atlas), or see the relevant links in [Cronology and Updates](https://github.com/benyamindsmith/mapBliss/blob/main/README.md#cronology-and-updates)
47 |
48 |
49 |
50 |
51 |
52 | Cronology and Updates
53 |
54 |
55 |
56 | 1. [I reverse-engineered Atlas.co (well, some of it)](https://bensstats.wordpress.com/2021/10/21/robservations-15-i-reverse-engineered-atlas-co-well-some-of-it/)
57 |
58 | 2. [Using the MapBox API with Leaflet](https://bensstats.wordpress.com/2021/10/25/robservations-16-using-the-mapbox-api-with-leaflet/)
59 |
60 | 3. [Plotting Flight Paths on Leaflet Maps](https://bensstats.wordpress.com/2021/11/16/robservations-17-plotting-flight-paths-on-leaflet-maps/)
61 |
62 | 4. [**Packaging My Route Map Code! Introducing mapBliss.**](https://bensstats.wordpress.com/2022/10/28/robservations-40-packaging-my-route-map-code-introducting-mapbliss/)
63 |
64 | 5. [Control Individual Label Positions In mapBliss With `_flex()` Functions](https://bensstats.wordpress.com/2022/11/23/robservations-43-control-individual-label-positions-in-mapbliss-with-_flex-functions/)
65 |
66 | 6. [Adding Frame and Custom Title Support To mapBliss](https://bensstats.wordpress.com/2022/12/27/robservations-44-adding-frame-and-custom-title-support-to-mapbliss/)
67 |
68 | 7. [a journey across the United States with mapBliss](https://bensstats.wordpress.com/2024/12/15/robservations-50-a-journey-across-the-united-states-with-mapbliss/)
69 |
70 |
71 |
72 | ### Installing This Package
73 |
74 | ```r
75 | # Install the `pak` package if you don't have it
76 | # install.packages("pak")
77 | pak::pkg_install("benyamindsmith/mapBliss")
78 | ```
79 |
80 |
81 |
82 |
83 | Dependencies
84 |
85 |
86 | This package depends on the following packages:
87 |
88 | * [dplyr](https://dplyr.tidyverse.org)
89 | * [purrr](https://purrr.tidyverse.org)
90 | * [magrittr](https://magrittr.tidyverse.org)
91 | * [tibble](https://tibble.tidyverse.org)
92 | * [rlang](https://rlang.r-lib.org)
93 | * [sf](https://r-spatial.github.io/sf/)
94 | * [geosphere](http://uribo.github.io/rpkg_showcase/spatial/geosphere.html)
95 | * [tidygeocoder](https://jessecambon.github.io/tidygeocoder/)
96 | * [leaflet](https://rstudio.github.io/leaflet/)
97 | * [osrm](https://github.com/riatelab/osrm)
98 | * [webshot](https://wch.github.io/webshot/articles/intro.html)
99 | * [htmlwidgets](https://github.com/ramnathv/htmlwidgets)
100 | * [magick](https://github.com/ropensci/magick)
101 | * [shiny](https://cran.r-project.org/web/packages/shiny/index.html)
102 |
103 |
104 |
105 |
106 |
107 |
108 | Some Example Visuals
109 |
110 |
111 |
112 | The following are just some screen shots of the images that can be produced. It is possible to create a map and save it as .svg file for a sharper image.
113 |
114 | 
115 |
116 |
117 | 
118 |
119 | 
120 |
121 |
122 | 
123 |
124 | 
125 |
126 | 
127 |
128 | 
129 |
130 |
131 |
--------------------------------------------------------------------------------
/R/frames.R:
--------------------------------------------------------------------------------
1 | #' Put Map In A Custom Frame
2 | #'
3 | #' Put your maps in a customized frame with `frame_*()` functions.
4 | #'
5 | #' DOCUMENTATION IS NEEDED
6 | #'
7 | #' `frame_1()` is a basic white square frame.
8 | #'
9 | #' @param map a map you created with mapBliss or leaflet
10 | #' @param title_text Title text
11 | #' @param subtitle_text Subtitle text
12 | #' @param title_font Title font
13 | #' @param subtitle_font Subtitle font
14 | #' @param frame_width Set by default to 100 percent. It is recommended not to change this.
15 | #' @param frame_height Set by default to 780 so as to fill the default shiny screen. Update according to your needs.
16 | #' @import shiny
17 | #' @export
18 | #' @examples
19 | #'
20 | #' plot_city_view("Jersalem, IL") |>
21 | #' frame_1(title_text="Jerusalem", subtitle_text="City of Gold", subtitle_font="Brush Script MT")
22 |
23 | frame_1 <- function(map,
24 | title_text = "Title",
25 | subtitle_text = "Subtitle",
26 | title_font = "Brush Script MT",
27 | subtitle_font = "Trebuchet MS",
28 | frame_width = "100%",
29 | frame_height = 780) {
30 | ui <-
31 | fillPage(## see various ways of including CSS: https://shiny.rstudio.com/articles/css.html
32 | tags$head(tags$style(HTML(
33 | paste0(
34 | "
35 | #greetings{
36 | top:-8rem;
37 | position:bottom;
38 | z-index:1000;
39 | background-color:#ffffff;
40 | }
41 |
42 | .fancy_border{border:25px solid;
43 | border-color: #ffffff;
44 | }
45 | .title_text{top:-5rem;
46 | font-family:",
47 | title_font,
48 | ";
49 | text-align: center;}
50 | .subtitle_text{
51 | font-family:",
52 | subtitle_font,
53 | ";
54 | text-align: center;
55 | }
56 | "
57 | )
58 | ))),
59 | div(class = 'fancy_border', ## set CSS class to style border
60 | div(
61 | leafletOutput('map', width = frame_width, height = frame_height)
62 | ), div(id = 'greetings', uiOutput('message'))))
63 |
64 |
65 |
66 | server <- function(input, output) {
67 | output$map <- renderLeaflet({
68 | map
69 | })
70 | ## note that you can also add CSS classes here:
71 | output$message <- renderUI(tagList(
72 | h1(title_text, class = 'title_text'),
73 | h3(subtitle_text, class = 'subtitle_text')
74 | ))
75 |
76 | }
77 | shinyApp(ui, server)
78 | }
79 |
80 |
81 |
82 | frame_2 <- function(map,
83 | title_text = "Title",
84 | subtitle_text = "Subtitle",
85 | title_font = "Brush Script MT",
86 | subtitle_font = "Trebuchet MS",
87 | frame_width = "100%",
88 | frame_height = 780) {
89 | ui <-
90 | fillPage(## see various ways of including CSS: https://shiny.rstudio.com/articles/css.html
91 | tags$head(tags$style(HTML(
92 | css_string <- paste0(
93 | "
94 | #greetings {
95 | top: -8rem;
96 | position: absolute;
97 | z-index: 1000;
98 | background-color: #ffffff;
99 | border-radius: 50%;
100 | width: 300px; /* Adjust size as needed */
101 | height: 300px; /* Adjust size as needed */
102 | display: flex;
103 | justify-content: center;
104 | align-items: center;
105 | overflow: hidden;
106 | }
107 |
108 | .fancy_border {
109 | border: 25px solid #ffffff; /* Adjust color and width as needed */
110 | border-radius: 50%;
111 | width: 300px; /* Match the width of #greetings */
112 | height: 300px; /* Match the height of #greetings */
113 | display: flex;
114 | justify-content: center;
115 | align-items: center;
116 | overflow: hidden;
117 | position: relative;
118 | }
119 |
120 | .title_text {
121 | position: absolute;
122 | top: -5rem;
123 | font-family:",
124 | title_font,
125 | ";
126 | text-align: center;
127 | width: 100%;
128 | }
129 |
130 | .subtitle_text {
131 | position: absolute;
132 | top: 1rem; /* Adjust position as needed */
133 | font-family: ",
134 | subtitle_font,
135 | ";
136 | text-align: center;
137 | width: 100%;
138 | }
139 |
140 | /* Ensure the text fits well within the circular frame */
141 | .title_text, .subtitle_text {
142 | padding: 0 1rem;
143 | }
144 | "
145 | )
146 | ))),
147 | div(class = 'fancy_border', ## set CSS class to style border
148 | div(
149 | leafletOutput('map', width = frame_width, height = frame_height)
150 | ), div(id = 'greetings', uiOutput('message'))))
151 |
152 |
153 |
154 | server <- function(input, output) {
155 | output$map <- renderLeaflet({
156 | map
157 | })
158 | ## note that you can also add CSS classes here:
159 | output$message <- renderUI(tagList(
160 | h1(title_text, class = 'title_text'),
161 | h3(subtitle_text, class = 'subtitle_text')
162 | ))
163 |
164 | }
165 | shinyApp(ui, server)
166 | }
167 |
--------------------------------------------------------------------------------
/R/plot_hybrid_route_flex.R:
--------------------------------------------------------------------------------
1 | #' Plot Hybrid Route With More Flexibility
2 | #'
3 | #'DISCLAIMER: the `_flex()` functions offer more flexibility in label placement and will offer new features under development for the `mapBliss` package. These functions will be subject to change more regularly than the standard functions.
4 | #'
5 | #'DOCUMENTATION IS NEEDED
6 | #'
7 | #'Plot multiple stops on a route `plot_hybrid route_flex()`. This function produces a html object so in order to save the image as an .svg (for printable visuals) check out the `save_map_svg()`. This function differs from `plot_route_flex()` and `plot_flights_flex()` as it accommodates a hybrid route where some locations are traveled via flight and others are traveled via car, bike or foot.
8 | #'
9 | #'@param addresses The stops on your route
10 | #'@param how Routing profile(s) to use, e.g. "car", "bike" or "foot" (when using the routing.openstreetmap.de test server) AND "flight". n-1 routing profiles are required for for n addresses
11 | #'@param colour what colour you want the route line to be colored
12 | #'@param opacity line opacity - a value between 0 and 1
13 | #'@param weight Line thickness
14 | #'@param radius Point size
15 | #'@param label_text Optional. Alternative text to display as the address labels.
16 | #'@param label_position where to place each of the labels relative to the points ("bottom", "top", "left", "right")
17 | #'@param font font-family css property
18 | #'@param font_weight font-weight css property
19 | #'@param font_size font-size css property
20 | #'@param text_indent text indent css property
21 | #'@param mapBoxTemplate The MapBox template you want to use.
22 | #'@param nCurves flight path smoothness. I have found setting this to 100 works best, but feel free to play around with it.
23 | #'@param zoomControl The zoom control for your bounding box. Default Format is `c(lng1,lat1,lng2,lat2)`
24 | #'@importFrom osrm osrmRoute
25 | #'@importFrom sf st_geometry
26 | #'@importFrom magrittr %>%
27 | #'@importFrom tibble tibble
28 | #'@importFrom tibble as_tibble
29 | #'@importFrom tidygeocoder geocode
30 | #'@importFrom dplyr transmute
31 | #'@importFrom purrr set_names
32 | #'@importFrom geosphere gcIntermediate
33 | #'@import leaflet
34 | #'@export
35 | #'
36 | #'@examples
37 | #'viz_1<-plot_hybrid_route_flex(addresses=c("Amsterdam","London","Newcastle upon Tyne"),
38 | #' how=c("car","car"),
39 | #' weight=3,
40 | #' colour="red",
41 | #' label_position = c("left","left","left"),
42 | #' text_indent= c("-6em","-5em","-13em"),
43 | #' mapBoxTemplate="//{s}.tile.openstreetmap.org/{z}/{x}/{y}.png"
44 | #' )
45 | #'viz_1
46 |
47 | plot_hybrid_route_flex <- function(addresses,
48 | how = c("car", "flight", "bike", "foot"),
49 | colour = "black",
50 | opacity = 1,
51 | weight = 1,
52 | radius = 2,
53 | label_text = addresses,
54 | label_position = "bottom",
55 | font = "Lucida Console",
56 | font_weight = "bold",
57 | font_size = "14px",
58 | text_indent = "15px",
59 | mapBoxTemplate = "//{s}.tile.openstreetmap.org/{z}/{x}/{y}.png",
60 | nCurves = 100,
61 | zoomControl = c(0.1, 0.1, -0.1, -0.1)) {
62 | address_single <- tibble(singlelineaddress = addresses) %>%
63 | geocode(address = singlelineaddress, method = 'arcgis') %>%
64 | transmute(id = singlelineaddress, lon = long, lat = lat)
65 |
66 | trip <- matrix(nrow = 1, ncol = 2)
67 |
68 |
69 | for (i in 1:(nrow(address_single) - 1)) {
70 | if (how[i] == "flight") {
71 | trip <- rbind(
72 | trip,
73 | gcIntermediate(
74 | address_single[i, 2:3],
75 | address_single[i + 1, 2:3],
76 | n = nCurves,
77 | addStartEnd = T
78 | )
79 | )
80 | } else{
81 | roadTrip <- osrmRoute(
82 | src = address_single[i, 2:3] %>% c %>% unlist,
83 | dst = address_single[i + 1, 2:3] %>% c %>% unlist,
84 | overview = "full",
85 | osrm.profile = how[i]
86 | )
87 |
88 |
89 | roadTrip <- do.call(rbind, st_geometry(roadTrip)) %>%
90 | as_tibble(.name_repair = "unique") %>%
91 | set_names(c("lon", "lat")) %>%
92 | as.data.frame() %>%
93 | as.matrix()
94 |
95 | trip <- rbind(trip, roadTrip)
96 | }
97 |
98 | }
99 |
100 |
101 | m <- leaflet(trip,
102 | options = leafletOptions(zoomControl = FALSE, attributionControl =
103 | FALSE)) %>%
104 | fitBounds(
105 | lng1 = max(address_single$lon) + zoomControl[1],
106 | lat1 = max(address_single$lat) + zoomControl[2],
107 | lng2 = min(address_single$lon) + zoomControl[3],
108 | lat2 = min(address_single$lat) + zoomControl[4]
109 | ) %>%
110 | addTiles(urlTemplate = mapBoxTemplate) %>%
111 | addCircleMarkers(
112 | lat = address_single$lat,
113 | lng = address_single$lon,
114 | color = colour,
115 | stroke = TRUE,
116 | radius = radius,
117 | fillOpacity = opacity
118 | ) %>%
119 | addPolylines(
120 | lng = trip[, 1],
121 | lat = trip[, 2],
122 | color = colour,
123 | opacity = opacity,
124 | weight = weight
125 | )
126 |
127 | for (i in 1:nrow(address_single)) {
128 | m <- m %>%
129 | addLabelOnlyMarkers(
130 | address_single$lon[i],
131 | address_single$lat[i],
132 | label = label_text[i],
133 | labelOptions = labelOptions(
134 | noHide = T,
135 | direction = label_position[i],
136 | textOnly = T,
137 | style =
138 | list(
139 | "font-family" = font,
140 | "font-weight" = font_weight,
141 | "font-size" = font_size,
142 | "padding" = text_indent[i],
143 | "color" = colour
144 | )
145 | )
146 | )
147 | }
148 |
149 | m
150 | }
151 |
--------------------------------------------------------------------------------
/docs/reference/index.html:
--------------------------------------------------------------------------------
1 |
2 | Function reference • mapBliss
6 |
7 |
8 |
9 |
31 |
32 |
33 |
34 |
35 |
36 |
37 | Reference
38 |
39 |
40 |
41 | All functions
42 |
43 |
44 |
45 |
46 |
47 | Put Map In A Custom Frame
49 |
50 |
51 | Plot A City View Map
53 |
54 |
55 | Plot Flight Paths
57 |
58 |
59 | Plot Flight Paths With More Flexibility
61 |
62 |
63 | Plot Hybrid Route
65 |
66 |
67 | Plot Hybrid Route With More Flexibility
69 |
70 |
71 | Plot Road Trip Route
73 |
74 |
75 | Plot Road Trip Route With More Flexibility
77 |
78 |
79 | Save Framed Map as .svg
81 |
82 |
83 | Save Map as .svg
85 |
86 |
89 |
90 |
91 |
92 |
101 |
102 |
103 |
104 |
105 |
106 |
107 |
108 |
109 |
--------------------------------------------------------------------------------
/docs/pkgdown.css:
--------------------------------------------------------------------------------
1 | /* Sticky footer */
2 |
3 | /**
4 | * Basic idea: https://philipwalton.github.io/solved-by-flexbox/demos/sticky-footer/
5 | * Details: https://github.com/philipwalton/solved-by-flexbox/blob/master/assets/css/components/site.css
6 | *
7 | * .Site -> body > .container
8 | * .Site-content -> body > .container .row
9 | * .footer -> footer
10 | *
11 | * Key idea seems to be to ensure that .container and __all its parents__
12 | * have height set to 100%
13 | *
14 | */
15 |
16 | html, body {
17 | height: 100%;
18 | }
19 |
20 | body {
21 | position: relative;
22 | }
23 |
24 | body > .container {
25 | display: flex;
26 | height: 100%;
27 | flex-direction: column;
28 | }
29 |
30 | body > .container .row {
31 | flex: 1 0 auto;
32 | }
33 |
34 | footer {
35 | margin-top: 45px;
36 | padding: 35px 0 36px;
37 | border-top: 1px solid #e5e5e5;
38 | color: #666;
39 | display: flex;
40 | flex-shrink: 0;
41 | }
42 | footer p {
43 | margin-bottom: 0;
44 | }
45 | footer div {
46 | flex: 1;
47 | }
48 | footer .pkgdown {
49 | text-align: right;
50 | }
51 | footer p {
52 | margin-bottom: 0;
53 | }
54 |
55 | img.icon {
56 | float: right;
57 | }
58 |
59 | /* Ensure in-page images don't run outside their container */
60 | .contents img {
61 | max-width: 100%;
62 | height: auto;
63 | }
64 |
65 | /* Fix bug in bootstrap (only seen in firefox) */
66 | summary {
67 | display: list-item;
68 | }
69 |
70 | /* Typographic tweaking ---------------------------------*/
71 |
72 | .contents .page-header {
73 | margin-top: calc(-60px + 1em);
74 | }
75 |
76 | dd {
77 | margin-left: 3em;
78 | }
79 |
80 | /* Section anchors ---------------------------------*/
81 |
82 | a.anchor {
83 | display: none;
84 | margin-left: 5px;
85 | width: 20px;
86 | height: 20px;
87 |
88 | background-image: url(./link.svg);
89 | background-repeat: no-repeat;
90 | background-size: 20px 20px;
91 | background-position: center center;
92 | }
93 |
94 | h1:hover .anchor,
95 | h2:hover .anchor,
96 | h3:hover .anchor,
97 | h4:hover .anchor,
98 | h5:hover .anchor,
99 | h6:hover .anchor {
100 | display: inline-block;
101 | }
102 |
103 | /* Fixes for fixed navbar --------------------------*/
104 |
105 | .contents h1, .contents h2, .contents h3, .contents h4 {
106 | padding-top: 60px;
107 | margin-top: -40px;
108 | }
109 |
110 | /* Navbar submenu --------------------------*/
111 |
112 | .dropdown-submenu {
113 | position: relative;
114 | }
115 |
116 | .dropdown-submenu>.dropdown-menu {
117 | top: 0;
118 | left: 100%;
119 | margin-top: -6px;
120 | margin-left: -1px;
121 | border-radius: 0 6px 6px 6px;
122 | }
123 |
124 | .dropdown-submenu:hover>.dropdown-menu {
125 | display: block;
126 | }
127 |
128 | .dropdown-submenu>a:after {
129 | display: block;
130 | content: " ";
131 | float: right;
132 | width: 0;
133 | height: 0;
134 | border-color: transparent;
135 | border-style: solid;
136 | border-width: 5px 0 5px 5px;
137 | border-left-color: #cccccc;
138 | margin-top: 5px;
139 | margin-right: -10px;
140 | }
141 |
142 | .dropdown-submenu:hover>a:after {
143 | border-left-color: #ffffff;
144 | }
145 |
146 | .dropdown-submenu.pull-left {
147 | float: none;
148 | }
149 |
150 | .dropdown-submenu.pull-left>.dropdown-menu {
151 | left: -100%;
152 | margin-left: 10px;
153 | border-radius: 6px 0 6px 6px;
154 | }
155 |
156 | /* Sidebar --------------------------*/
157 |
158 | #pkgdown-sidebar {
159 | margin-top: 30px;
160 | position: -webkit-sticky;
161 | position: sticky;
162 | top: 70px;
163 | }
164 |
165 | #pkgdown-sidebar h2 {
166 | font-size: 1.5em;
167 | margin-top: 1em;
168 | }
169 |
170 | #pkgdown-sidebar h2:first-child {
171 | margin-top: 0;
172 | }
173 |
174 | #pkgdown-sidebar .list-unstyled li {
175 | margin-bottom: 0.5em;
176 | }
177 |
178 | /* bootstrap-toc tweaks ------------------------------------------------------*/
179 |
180 | /* All levels of nav */
181 |
182 | nav[data-toggle='toc'] .nav > li > a {
183 | padding: 4px 20px 4px 6px;
184 | font-size: 1.5rem;
185 | font-weight: 400;
186 | color: inherit;
187 | }
188 |
189 | nav[data-toggle='toc'] .nav > li > a:hover,
190 | nav[data-toggle='toc'] .nav > li > a:focus {
191 | padding-left: 5px;
192 | color: inherit;
193 | border-left: 1px solid #878787;
194 | }
195 |
196 | nav[data-toggle='toc'] .nav > .active > a,
197 | nav[data-toggle='toc'] .nav > .active:hover > a,
198 | nav[data-toggle='toc'] .nav > .active:focus > a {
199 | padding-left: 5px;
200 | font-size: 1.5rem;
201 | font-weight: 400;
202 | color: inherit;
203 | border-left: 2px solid #878787;
204 | }
205 |
206 | /* Nav: second level (shown on .active) */
207 |
208 | nav[data-toggle='toc'] .nav .nav {
209 | display: none; /* Hide by default, but at >768px, show it */
210 | padding-bottom: 10px;
211 | }
212 |
213 | nav[data-toggle='toc'] .nav .nav > li > a {
214 | padding-left: 16px;
215 | font-size: 1.35rem;
216 | }
217 |
218 | nav[data-toggle='toc'] .nav .nav > li > a:hover,
219 | nav[data-toggle='toc'] .nav .nav > li > a:focus {
220 | padding-left: 15px;
221 | }
222 |
223 | nav[data-toggle='toc'] .nav .nav > .active > a,
224 | nav[data-toggle='toc'] .nav .nav > .active:hover > a,
225 | nav[data-toggle='toc'] .nav .nav > .active:focus > a {
226 | padding-left: 15px;
227 | font-weight: 500;
228 | font-size: 1.35rem;
229 | }
230 |
231 | /* orcid ------------------------------------------------------------------- */
232 |
233 | .orcid {
234 | font-size: 16px;
235 | color: #A6CE39;
236 | /* margins are required by official ORCID trademark and display guidelines */
237 | margin-left:4px;
238 | margin-right:4px;
239 | vertical-align: middle;
240 | }
241 |
242 | /* Reference index & topics ----------------------------------------------- */
243 |
244 | .ref-index th {font-weight: normal;}
245 |
246 | .ref-index td {vertical-align: top; min-width: 100px}
247 | .ref-index .icon {width: 40px;}
248 | .ref-index .alias {width: 40%;}
249 | .ref-index-icons .alias {width: calc(40% - 40px);}
250 | .ref-index .title {width: 60%;}
251 |
252 | .ref-arguments th {text-align: right; padding-right: 10px;}
253 | .ref-arguments th, .ref-arguments td {vertical-align: top; min-width: 100px}
254 | .ref-arguments .name {width: 20%;}
255 | .ref-arguments .desc {width: 80%;}
256 |
257 | /* Nice scrolling for wide elements --------------------------------------- */
258 |
259 | table {
260 | display: block;
261 | overflow: auto;
262 | }
263 |
264 | /* Syntax highlighting ---------------------------------------------------- */
265 |
266 | pre, code, pre code {
267 | background-color: #f8f8f8;
268 | color: #333;
269 | }
270 | pre, pre code {
271 | white-space: pre-wrap;
272 | word-break: break-all;
273 | overflow-wrap: break-word;
274 | }
275 |
276 | pre {
277 | border: 1px solid #eee;
278 | }
279 |
280 | pre .img, pre .r-plt {
281 | margin: 5px 0;
282 | }
283 |
284 | pre .img img, pre .r-plt img {
285 | background-color: #fff;
286 | }
287 |
288 | code a, pre a {
289 | color: #375f84;
290 | }
291 |
292 | a.sourceLine:hover {
293 | text-decoration: none;
294 | }
295 |
296 | .fl {color: #1514b5;}
297 | .fu {color: #000000;} /* function */
298 | .ch,.st {color: #036a07;} /* string */
299 | .kw {color: #264D66;} /* keyword */
300 | .co {color: #888888;} /* comment */
301 |
302 | .error {font-weight: bolder;}
303 | .warning {font-weight: bolder;}
304 |
305 | /* Clipboard --------------------------*/
306 |
307 | .hasCopyButton {
308 | position: relative;
309 | }
310 |
311 | .btn-copy-ex {
312 | position: absolute;
313 | right: 0;
314 | top: 0;
315 | visibility: hidden;
316 | }
317 |
318 | .hasCopyButton:hover button.btn-copy-ex {
319 | visibility: visible;
320 | }
321 |
322 | /* headroom.js ------------------------ */
323 |
324 | .headroom {
325 | will-change: transform;
326 | transition: transform 200ms linear;
327 | }
328 | .headroom--pinned {
329 | transform: translateY(0%);
330 | }
331 | .headroom--unpinned {
332 | transform: translateY(-100%);
333 | }
334 |
335 | /* mark.js ----------------------------*/
336 |
337 | mark {
338 | background-color: rgba(255, 255, 51, 0.5);
339 | border-bottom: 2px solid rgba(255, 153, 51, 0.3);
340 | padding: 1px;
341 | }
342 |
343 | /* vertical spacing after htmlwidgets */
344 | .html-widget {
345 | margin-bottom: 10px;
346 | }
347 |
348 | /* fontawesome ------------------------ */
349 |
350 | .fab {
351 | font-family: "Font Awesome 5 Brands" !important;
352 | }
353 |
354 | /* don't display links in code chunks when printing */
355 | /* source: https://stackoverflow.com/a/10781533 */
356 | @media print {
357 | code a:link:after, code a:visited:after {
358 | content: "";
359 | }
360 | }
361 |
362 | /* Section anchors ---------------------------------
363 | Added in pandoc 2.11: https://github.com/jgm/pandoc-templates/commit/9904bf71
364 | */
365 |
366 | div.csl-bib-body { }
367 | div.csl-entry {
368 | clear: both;
369 | }
370 | .hanging-indent div.csl-entry {
371 | margin-left:2em;
372 | text-indent:-2em;
373 | }
374 | div.csl-left-margin {
375 | min-width:2em;
376 | float:left;
377 | }
378 | div.csl-right-inline {
379 | margin-left:2em;
380 | padding-left:1em;
381 | }
382 | div.csl-indent {
383 | margin-left: 2em;
384 | }
385 |
--------------------------------------------------------------------------------
/docs/docsearch.css:
--------------------------------------------------------------------------------
1 | /* Docsearch -------------------------------------------------------------- */
2 | /*
3 | Source: https://github.com/algolia/docsearch/
4 | License: MIT
5 | */
6 |
7 | .algolia-autocomplete {
8 | display: block;
9 | -webkit-box-flex: 1;
10 | -ms-flex: 1;
11 | flex: 1
12 | }
13 |
14 | .algolia-autocomplete .ds-dropdown-menu {
15 | width: 100%;
16 | min-width: none;
17 | max-width: none;
18 | padding: .75rem 0;
19 | background-color: #fff;
20 | background-clip: padding-box;
21 | border: 1px solid rgba(0, 0, 0, .1);
22 | box-shadow: 0 .5rem 1rem rgba(0, 0, 0, .175);
23 | }
24 |
25 | @media (min-width:768px) {
26 | .algolia-autocomplete .ds-dropdown-menu {
27 | width: 175%
28 | }
29 | }
30 |
31 | .algolia-autocomplete .ds-dropdown-menu::before {
32 | display: none
33 | }
34 |
35 | .algolia-autocomplete .ds-dropdown-menu [class^=ds-dataset-] {
36 | padding: 0;
37 | background-color: rgb(255,255,255);
38 | border: 0;
39 | max-height: 80vh;
40 | }
41 |
42 | .algolia-autocomplete .ds-dropdown-menu .ds-suggestions {
43 | margin-top: 0
44 | }
45 |
46 | .algolia-autocomplete .algolia-docsearch-suggestion {
47 | padding: 0;
48 | overflow: visible
49 | }
50 |
51 | .algolia-autocomplete .algolia-docsearch-suggestion--category-header {
52 | padding: .125rem 1rem;
53 | margin-top: 0;
54 | font-size: 1.3em;
55 | font-weight: 500;
56 | color: #00008B;
57 | border-bottom: 0
58 | }
59 |
60 | .algolia-autocomplete .algolia-docsearch-suggestion--wrapper {
61 | float: none;
62 | padding-top: 0
63 | }
64 |
65 | .algolia-autocomplete .algolia-docsearch-suggestion--subcategory-column {
66 | float: none;
67 | width: auto;
68 | padding: 0;
69 | text-align: left
70 | }
71 |
72 | .algolia-autocomplete .algolia-docsearch-suggestion--content {
73 | float: none;
74 | width: auto;
75 | padding: 0
76 | }
77 |
78 | .algolia-autocomplete .algolia-docsearch-suggestion--content::before {
79 | display: none
80 | }
81 |
82 | .algolia-autocomplete .ds-suggestion:not(:first-child) .algolia-docsearch-suggestion--category-header {
83 | padding-top: .75rem;
84 | margin-top: .75rem;
85 | border-top: 1px solid rgba(0, 0, 0, .1)
86 | }
87 |
88 | .algolia-autocomplete .ds-suggestion .algolia-docsearch-suggestion--subcategory-column {
89 | display: block;
90 | padding: .1rem 1rem;
91 | margin-bottom: 0.1;
92 | font-size: 1.0em;
93 | font-weight: 400
94 | /* display: none */
95 | }
96 |
97 | .algolia-autocomplete .algolia-docsearch-suggestion--title {
98 | display: block;
99 | padding: .25rem 1rem;
100 | margin-bottom: 0;
101 | font-size: 0.9em;
102 | font-weight: 400
103 | }
104 |
105 | .algolia-autocomplete .algolia-docsearch-suggestion--text {
106 | padding: 0 1rem .5rem;
107 | margin-top: -.25rem;
108 | font-size: 0.8em;
109 | font-weight: 400;
110 | line-height: 1.25
111 | }
112 |
113 | .algolia-autocomplete .algolia-docsearch-footer {
114 | width: 110px;
115 | height: 20px;
116 | z-index: 3;
117 | margin-top: 10.66667px;
118 | float: right;
119 | font-size: 0;
120 | line-height: 0;
121 | }
122 |
123 | .algolia-autocomplete .algolia-docsearch-footer--logo {
124 | background-image: url("data:image/svg+xml;utf8,");
125 | background-repeat: no-repeat;
126 | background-position: 50%;
127 | background-size: 100%;
128 | overflow: hidden;
129 | text-indent: -9000px;
130 | width: 100%;
131 | height: 100%;
132 | display: block;
133 | transform: translate(-8px);
134 | }
135 |
136 | .algolia-autocomplete .algolia-docsearch-suggestion--highlight {
137 | color: #FF8C00;
138 | background: rgba(232, 189, 54, 0.1)
139 | }
140 |
141 |
142 | .algolia-autocomplete .algolia-docsearch-suggestion--text .algolia-docsearch-suggestion--highlight {
143 | box-shadow: inset 0 -2px 0 0 rgba(105, 105, 105, .5)
144 | }
145 |
146 | .algolia-autocomplete .ds-suggestion.ds-cursor .algolia-docsearch-suggestion--content {
147 | background-color: rgba(192, 192, 192, .15)
148 | }
149 |
--------------------------------------------------------------------------------
/docs/index.html:
--------------------------------------------------------------------------------
1 |
2 |
3 |
4 |
5 |
6 |
7 |
8 | Plot routes and trips on beautiful maps • mapBliss
9 |
10 |
11 |
12 |
13 |
14 |
15 |
16 |
20 |
21 |
22 |
23 |
24 |
25 |
52 |
53 |
54 |
55 |
56 |
57 |
58 |
59 |
62 | Create beautiful maps of your adventures with Leaflet in R.
63 | If you want to learn how you can contribute to this project, feel free to contact me via my website.
64 | Do you see have a feature idea that you think would make mapBliss better? Feel free to open an issue and make a feature request!
65 | If you are interested in making star maps, check out starBliss
66 |
67 | Table of Contents
68 |
69 |
70 |
76 | Introduction
77 |
78 |
This package is based functions I created for creating print-quality souvenir maps like the ones you can find on Atlas.co.
79 | Update: Atlas.co announced that it has shut down, (see here). mapBliss is still ready to use!
80 |
81 | Screenshot of reddit post.
82 |
83 | For some background on how this package came to be and for updates. Feel free to check out my blogs on the topic here, or see the relevant links in Cronology and Updates
84 |
85 | Cronology and Updates
86 |
87 |
88 |
89 | Control Individual Label Positions In mapBliss With _flex() Functions
-
95 |
96 |
97 |
98 | Installing This Package
99 |
100 |
101 | devtools::install_github("benyamindsmith/mapBliss")
102 |
103 | Dependencies
104 |
105 |
This package depends on the following packages:
106 |
122 | Some Example Visuals
123 |
124 |
The following are just some screen shots of the images that can be produced. It is possible to create a map and save it as .svg file for a sharper image.
125 |
126 | 
image
127 |
128 |
129 | 
image
130 |
131 |
132 |
133 |
134 |
135 |
136 |
137 |
138 |
139 |
140 |
166 |
167 |
168 |
169 |
180 |
181 |
182 |
183 |
184 |
185 |
186 |
187 |
188 |
189 |
--------------------------------------------------------------------------------
/masks/circlular_mask.svg:
--------------------------------------------------------------------------------
1 |
2 |
3 |
345 |
--------------------------------------------------------------------------------
/LICENSE:
--------------------------------------------------------------------------------
1 | GNU GENERAL PUBLIC LICENSE
2 | Version 3, 29 June 2007
3 |
4 | Copyright (C) 2007 Free Software Foundation, Inc.
635 | Copyright (C)
636 |
637 | This program is free software: you can redistribute it and/or modify
638 | it under the terms of the GNU General Public License as published by
639 | the Free Software Foundation, either version 3 of the License, or
640 | (at your option) any later version.
641 |
642 | This program is distributed in the hope that it will be useful,
643 | but WITHOUT ANY WARRANTY; without even the implied warranty of
644 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
645 | GNU General Public License for more details.
646 |
647 | You should have received a copy of the GNU General Public License
648 | along with this program. If not, see Copyright (C)
656 | This program comes with ABSOLUTELY NO WARRANTY; for details type `show w'.
657 | This is free software, and you are welcome to redistribute it
658 | under certain conditions; type `show c' for details.
659 |
660 | The hypothetical commands `show w' and `show c' should show the appropriate
661 | parts of the General Public License. Of course, your program's commands
662 | might be different; for a GUI interface, you would use an "about box".
663 |
664 | You should also get your employer (if you work as a programmer) or school,
665 | if any, to sign a "copyright disclaimer" for the program, if necessary.
666 | For more information on this, and how to apply and follow the GNU GPL, see
667 | .
675 |
--------------------------------------------------------------------------------
`).
76 | getTopLevel: function($scope) {
77 | for (var i = 1; i <= 6; i++) {
78 | var $headings = this.findOrFilter($scope, 'h' + i);
79 | if ($headings.length > 1) {
80 | return i;
81 | }
82 | }
83 |
84 | return 1;
85 | },
86 |
87 | // returns the elements for the top level, and the next below it
88 | getHeadings: function($scope, topLevel) {
89 | var topSelector = 'h' + topLevel;
90 |
91 | var secondaryLevel = topLevel + 1;
92 | var secondarySelector = 'h' + secondaryLevel;
93 |
94 | return this.findOrFilter($scope, topSelector + ',' + secondarySelector);
95 | },
96 |
97 | getNavLevel: function(el) {
98 | return parseInt(el.tagName.charAt(1), 10);
99 | },
100 |
101 | populateNav: function($topContext, topLevel, $headings) {
102 | var $context = $topContext;
103 | var $prevNav;
104 |
105 | var helpers = this;
106 | $headings.each(function(i, el) {
107 | var $newNav = helpers.generateNavItem(el);
108 | var navLevel = helpers.getNavLevel(el);
109 |
110 | // determine the proper $context
111 | if (navLevel === topLevel) {
112 | // use top level
113 | $context = $topContext;
114 | } else if ($prevNav && $context === $topContext) {
115 | // create a new level of the tree and switch to it
116 | $context = helpers.createChildNavList($prevNav);
117 | } // else use the current $context
118 |
119 | $context.append($newNav);
120 |
121 | $prevNav = $newNav;
122 | });
123 | },
124 |
125 | parseOps: function(arg) {
126 | var opts;
127 | if (arg.jquery) {
128 | opts = {
129 | $nav: arg
130 | };
131 | } else {
132 | opts = arg;
133 | }
134 | opts.$scope = opts.$scope || $(document.body);
135 | return opts;
136 | }
137 | },
138 |
139 | // accepts a jQuery object, or an options object
140 | init: function(opts) {
141 | opts = this.helpers.parseOps(opts);
142 |
143 | // ensure that the data attribute is in place for styling
144 | opts.$nav.attr('data-toggle', 'toc');
145 |
146 | var $topContext = this.helpers.createChildNavList(opts.$nav);
147 | var topLevel = this.helpers.getTopLevel(opts.$scope);
148 | var $headings = this.helpers.getHeadings(opts.$scope, topLevel);
149 | this.helpers.populateNav($topContext, topLevel, $headings);
150 | }
151 | };
152 |
153 | $(function() {
154 | $('nav[data-toggle="toc"]').each(function(i, el) {
155 | var $nav = $(el);
156 | Toc.init($nav);
157 | });
158 | });
159 | })();
160 |
--------------------------------------------------------------------------------
/R/plot_hybrid_route.R:
--------------------------------------------------------------------------------
1 | #' Plot Hybrid Route
2 | #'
3 | #'Plot multiple stops on a route `plot_hybrid route()`. This function produces a html object so in order to save the image as an .svg (for printable visuals) check out the `save_map_svg()`. This function differs from `plot_route()` and `plot_flights()` as it accomidates a hybrid route where some locations are traveled via flight and others are traveled via car, bike or foot.
4 | #'
5 | #'@param addresses The stops on your route
6 | #'@param how Routing profile(s) to use, e.g. "car", "bike" or "foot" (when using the routing.openstreetmap.de test server) AND "flight". n-1 routing profiles are required for for n addresses
7 | #'@param colour what colour you want the route line to be colored
8 | #'@param opacity line opacity - a value between 0 and 1
9 | #'@param weight Line thickness
10 | #'@param radius Point size
11 | #'@param label_text Optional. Alternative text to display as the address labels.
12 | #'@param label_position where to place the label relative to the point ("bottom", "top", "left", "right")
13 | #'@param font font-family css property
14 | #'@param font_weight font-weight css property
15 | #'@param font_size font-size css property
16 | #'@param text_indent text indent css property
17 | #' @param mapBoxTemplate The MapBox template you want to use.
18 | #'@param nCurves flight path smoothness. I have found setting this to 100 works best, but feel free to play around with it.
19 | #'@param zoomControl The zoom control for your bounding box. Default Format is `c(lng1,lat1,lng2,lat2)`
20 | #'@importFrom osrm osrmRoute
21 | #'@importFrom sf st_geometry
22 | #'@importFrom magrittr %>%
23 | #'@importFrom tibble tibble
24 | #'@importFrom tibble as_tibble
25 | #'@importFrom tidygeocoder geocode
26 | #'@importFrom dplyr transmute
27 | #'@importFrom purrr set_names
28 | #'@importFrom geosphere gcIntermediate
29 | #'@import leaflet
30 | #'@export
31 | #'@examples
32 | #'plot_hybrid_route(c("Detroit","Toronto","MKE"),
33 | #' c("car","flight"))
34 |
35 |
36 | plot_hybrid_route <- function(addresses,
37 | how = c("car", "flight", "bike", "foot"),
38 | colour = "black",
39 | opacity = 1,
40 | weight = 1,
41 | radius = 2,
42 | label_text = addresses,
43 | label_position = "bottom",
44 | font = "Lucida Console",
45 | font_weight = "bold",
46 | font_size = "14px",
47 | text_indent = "15px",
48 | mapBoxTemplate = "//{s}.tile.openstreetmap.org/{z}/{x}/{y}.png",
49 | nCurves = 100,
50 | zoomControl = c(0.1, 0.1, -0.1, -0.1)) {
51 | address_single <- tibble(singlelineaddress = addresses) %>%
52 | geocode(address = singlelineaddress, method = 'arcgis') %>%
53 | transmute(id = singlelineaddress, lon = long, lat = lat)
54 |
55 | trip <- matrix(nrow = 1, ncol = 2)
56 |
57 |
58 | for (i in 1:(nrow(address_single) - 1)) {
59 | if (how[i] == "flight") {
60 | trip <- rbind(
61 | trip,
62 | gcIntermediate(
63 | address_single[i, 2:3],
64 | address_single[i + 1, 2:3],
65 | n = nCurves,
66 | addStartEnd = T
67 | )
68 | )
69 | } else{
70 | roadTrip <- osrmRoute(
71 | src = address_single[i, 2:3] %>% c %>% unlist,
72 | dst = address_single[i + 1, 2:3] %>% c %>% unlist,
73 | overview = "full",
74 | osrm.profile = how[i]
75 | )
76 |
77 |
78 | roadTrip <- do.call(rbind, st_geometry(roadTrip)) %>%
79 | as_tibble(.name_repair = "unique") %>%
80 | set_names(c("lon", "lat")) %>%
81 | as.data.frame() %>%
82 | as.matrix()
83 |
84 | trip <- rbind(trip, roadTrip)
85 | }
86 |
87 | }
88 |
89 |
90 | m <- leaflet(trip,
91 | options = leafletOptions(zoomControl = FALSE, attributionControl =
92 | FALSE)) %>%
93 | fitBounds(
94 | lng1 = max(address_single$lon) + zoomControl[1],
95 | lat1 = max(address_single$lat) + zoomControl[2],
96 | lng2 = min(address_single$lon) + zoomControl[3],
97 | lat2 = min(address_single$lat) + zoomControl[4]
98 | ) %>%
99 | addTiles(urlTemplate = mapBoxTemplate) %>%
100 | addCircleMarkers(
101 | lat = address_single$lat,
102 | lng = address_single$lon,
103 | color = colour,
104 | stroke = TRUE,
105 | radius = radius,
106 | fillOpacity = opacity
107 | ) %>%
108 | addPolylines(
109 | lng = trip[, 1],
110 | lat = trip[, 2],
111 | color = colour,
112 | opacity = opacity,
113 | weight = weight
114 | ) %>%
115 | addLabelOnlyMarkers(
116 | address_single$lon,
117 | address_single$lat,
118 | label = label_text,
119 | labelOptions = labelOptions(
120 | noHide = T,
121 | direction = label_position,
122 | textOnly = T,
123 | style = list(
124 | "font-family" = font,
125 | "font-weight" = font_weight,
126 | "font-size" =
127 | font_size,
128 | "text-indent" =
129 | text_indent,
130 | "color" = colour
131 | )
132 | )
133 | )
134 |
135 | m
136 | }
137 |
--------------------------------------------------------------------------------
/R/plot_route_flex.R:
--------------------------------------------------------------------------------
1 | #' Plot Road Trip Route With More Flexibility
2 | #'
3 | #'DISCLAIMER: the `_flex()` functions offer more flexibility in label placement and will offer new features under development for the `mapBliss` package. These functions will be subject to change more regularly than the standard functions.
4 | #'
5 | #'DOCUMENTATION IS NEEDED
6 | #'
7 | #'Plot multiple stops on a route `plot_route_flex()`. This function produces a html object so in order to save the image as an .svg (for printable visuals) check out the `save_map_svg()`.
8 | #'
9 | #'For more information on how to integrate the MapBox API to make beautiful maps, check out [this blog](https://bensstats.wordpress.com/2021/10/25/robservations-16-using-the-mapbox-api-with-leaflet/).
10 | #'
11 | #'
12 | #' @param addresses the stops on your route
13 | #' @param how routing profile(s) to use, e.g. "car", "bike" or "foot" (when using the routing.openstreetmap.de test server). n-1 routing profiles are required for for n addresses
14 | #' @param colour what colour you want the route line to be colored
15 | #' @param opacity line opacity - a value between 0 and 1
16 | #' @param weight Line thickness
17 | #' @param radius Point size
18 | #' @param label_text Optional. Alternative text to display as the address labels.
19 | #' @param label_position where to place teach of the labels relative to the points ("bottom", "top", "left", "right")
20 | #' @param font font-family css property
21 | #' @param font_weight font-weight css property
22 | #' @param font_size font-size css property
23 | #' @param text_indent text indent css property
24 | #' @param mapBoxTemplate the MapBox template you want to use.
25 | #' @param zoomControl The zoom control for your bounding box. Default format is `c(lng1,lat1,lng2,lat2)`
26 | #' @importFrom osrm osrmRoute
27 | #' @importFrom sf st_geometry
28 | #' @importFrom magrittr %>%
29 | #' @importFrom tibble tibble
30 | #' @importFrom tibble as_tibble
31 | #' @importFrom tidygeocoder geocode
32 | #' @importFrom dplyr transmute
33 | #' @importFrom purrr set_names
34 | #' @importFrom geosphere gcIntermediate
35 | #' @import leaflet
36 | #' @export
37 | #' @examples
38 | #'
39 | #'viz_1<-plot_hybrid_flex(addresses=c("Amsterdam","London","Newcastle upon Tyne"),
40 | #' how=c("car","car"),
41 | #' weight=3,
42 | #' colour="red",
43 | #' label_position = c("left","left","left"),
44 | #' text_indent= c("-6em","-5em","-13em"),
45 | #' mapBoxTemplate="//{s}.tile.openstreetmap.org/{z}/{x}/{y}.png"
46 | #' )
47 | #'viz_1
48 |
49 |
50 |
51 | plot_route_flex <- function(addresses,
52 | how = c("car", "bike", "foot"),
53 | colour = "black",
54 | opacity = 1,
55 | weight = 1,
56 | radius = 2,
57 | label_text = addresses,
58 | label_position = "bottom",
59 | font = "Lucida Console",
60 | font_weight = "bold",
61 | font_size = "14px",
62 | text_indent = "15px",
63 | mapBoxTemplate = "//{s}.tile.openstreetmap.org/{z}/{x}/{y}.png",
64 | zoomControl = c(0.1, 0.1, -0.1, -0.1)) {
65 | address_single <- tibble(singlelineaddress = addresses) %>%
66 | geocode(address = singlelineaddress, method = 'arcgis') %>%
67 | transmute(id = singlelineaddress, lon = long, lat = lat)
68 |
69 |
70 | trip <- list()
71 |
72 | for (i in 1:(nrow(address_single) - 1)) {
73 | trip[[i]] <- osrmRoute(
74 | src = address_single[i, 2:3] %>% c %>% unlist,
75 | dst = address_single[i + 1, 2:3] %>% c %>% unlist,
76 | overview = "full",
77 | osrm.profile = how[i]
78 | )
79 | }
80 | trip <- do.call(rbind, trip)
81 |
82 | trip <- do.call(rbind, st_geometry(trip)) %>%
83 | as_tibble(.name_repair = "unique") %>%
84 | set_names(c("lon", "lat")) %>%
85 | as.data.frame() %>%
86 | as.matrix()
87 |
88 | m <- leaflet(trip,
89 | options = leafletOptions(zoomControl = FALSE, attributionControl =
90 | FALSE)) %>%
91 | fitBounds(
92 | lng1 = max(address_single$lon) + zoomControl[1],
93 | lat1 = max(address_single$lat) + zoomControl[2],
94 | lng2 = min(address_single$lon) + zoomControl[3],
95 | lat2 = min(address_single$lat) + zoomControl[4]
96 | ) %>%
97 | addTiles(urlTemplate = mapBoxTemplate) %>%
98 | addCircleMarkers(
99 | lat = address_single$lat,
100 | lng = address_single$lon,
101 | color = colour,
102 | stroke = TRUE,
103 | radius = radius,
104 | fillOpacity = opacity
105 | ) %>%
106 | addPolylines(
107 | lng = trip[, 1],
108 | lat = trip[, 2],
109 | color = colour,
110 | opacity = opacity,
111 | weight = weight
112 | )
113 |
114 | for (i in 1:nrow(address_single)) {
115 | m <- m %>%
116 | addLabelOnlyMarkers(
117 | address_single$lon[i],
118 | address_single$lat[i],
119 | label = label_text[i],
120 | labelOptions = labelOptions(
121 | noHide = T,
122 | direction = label_position[i],
123 | textOnly = T,
124 | style =
125 | list(
126 | "font-family" = font,
127 | "font-weight" = font_weight,
128 | "font-size" = font_size,
129 | "padding" = text_indent[i],
130 | "color" = colour
131 | )
132 | )
133 | )
134 | }
135 |
136 |
137 | m
138 | }
139 |
--------------------------------------------------------------------------------
/README.md:
--------------------------------------------------------------------------------
1 | # mapBliss
2 |
3 | Create beautiful maps of your adventures with Leaflet in R.
4 |
5 | **If you want to learn how you can contribute to this project, feel free to contact me via my [website](https://bensstats.wordpress.com)**.
6 |
7 | **Do you see have a feature idea that you think would make mapBliss better? Feel free to [open an issue](https://github.com/benyamindsmith/mapBliss/issues) and make a feature request!**
8 |
9 | **If you are interested in making star maps, check out [`starBliss`](https://github.com/benyamindsmith/starBliss)**
10 |
11 |
12 |
13 | Table of Contents
14 |
15 |
16 |
17 | * [Introduction](https://github.com/benyamindsmith/mapBliss/main/README.md#introduction)
18 |
19 | * [Cronology and Updates](https://github.com/benyamindsmith/mapBliss/main/README.md#cronology-and-updates)
20 |
21 | * [Installing This Package](https://github.com/benyamindsmith/mapBliss/blob/main/README.md#installing-this-package)
22 |
23 | * [Dependencies](https://github.com/benyamindsmith/mapBliss/blob/main/README.md#dependencies)
24 |
25 | * [Some Example Visuals](https://github.com/benyamindsmith/mapBliss/blob/main/README.md#some-example-visuals)
26 |
27 |
28 |
29 |
30 |
31 | Introduction
32 |
33 |
34 |
35 | This package is based functions I created for creating print-quality souvenir maps like the ones you can find on (the now [defunct](https://www.reddit.com/r/KaraAndNate/comments/16lynaf/atlasco_is_shutting_down/)) [Atlas.co](atlas.co/products/map).
36 |
37 | __Update:__ Atlas.co announced that it has shut down, (see [here](https://www.reddit.com/r/KaraAndNate/comments/16lynaf/atlasco_is_shutting_down/)). `mapBliss` is still ready to use!
38 |
39 |
40 |
41 | Screenshot of reddit post.
42 |
43 |
44 |
45 |
46 | For some background on how this package came to be and for updates. Feel free to check out my blogs on the topic [here](https://bensstats.wordpress.com/?s=atlas), or see the relevant links in [Cronology and Updates](https://github.com/benyamindsmith/mapBliss/blob/main/README.md#cronology-and-updates)
47 |
48 |
49 |
50 |
51 |
52 | Cronology and Updates
53 |
54 |
55 |
56 | 1. [I reverse-engineered Atlas.co (well, some of it)](https://bensstats.wordpress.com/2021/10/21/robservations-15-i-reverse-engineered-atlas-co-well-some-of-it/)
57 |
58 | 2. [Using the MapBox API with Leaflet](https://bensstats.wordpress.com/2021/10/25/robservations-16-using-the-mapbox-api-with-leaflet/)
59 |
60 | 3. [Plotting Flight Paths on Leaflet Maps](https://bensstats.wordpress.com/2021/11/16/robservations-17-plotting-flight-paths-on-leaflet-maps/)
61 |
62 | 4. [**Packaging My Route Map Code! Introducing mapBliss.**](https://bensstats.wordpress.com/2022/10/28/robservations-40-packaging-my-route-map-code-introducting-mapbliss/)
63 |
64 | 5. [Control Individual Label Positions In mapBliss With `_flex()` Functions](https://bensstats.wordpress.com/2022/11/23/robservations-43-control-individual-label-positions-in-mapbliss-with-_flex-functions/)
65 |
66 | 6. [Adding Frame and Custom Title Support To mapBliss](https://bensstats.wordpress.com/2022/12/27/robservations-44-adding-frame-and-custom-title-support-to-mapbliss/)
67 |
68 | 7. [a journey across the United States with mapBliss](https://bensstats.wordpress.com/2024/12/15/robservations-50-a-journey-across-the-united-states-with-mapbliss/)
69 |
70 |
71 |
72 | ### Installing This Package
73 |
74 | ```r
75 | # Install the `pak` package if you don't have it
76 | # install.packages("pak")
77 | pak::pkg_install("benyamindsmith/mapBliss")
78 | ```
79 |
80 |
81 |
82 |
83 | Dependencies
84 |
85 |
86 | This package depends on the following packages:
87 |
88 | * [dplyr](https://dplyr.tidyverse.org)
89 | * [purrr](https://purrr.tidyverse.org)
90 | * [magrittr](https://magrittr.tidyverse.org)
91 | * [tibble](https://tibble.tidyverse.org)
92 | * [rlang](https://rlang.r-lib.org)
93 | * [sf](https://r-spatial.github.io/sf/)
94 | * [geosphere](http://uribo.github.io/rpkg_showcase/spatial/geosphere.html)
95 | * [tidygeocoder](https://jessecambon.github.io/tidygeocoder/)
96 | * [leaflet](https://rstudio.github.io/leaflet/)
97 | * [osrm](https://github.com/riatelab/osrm)
98 | * [webshot](https://wch.github.io/webshot/articles/intro.html)
99 | * [htmlwidgets](https://github.com/ramnathv/htmlwidgets)
100 | * [magick](https://github.com/ropensci/magick)
101 | * [shiny](https://cran.r-project.org/web/packages/shiny/index.html)
102 |
103 |
104 |
105 |
106 |
107 |
108 | Some Example Visuals
109 |
110 |
111 |
112 | The following are just some screen shots of the images that can be produced. It is possible to create a map and save it as .svg file for a sharper image.
113 |
114 | 
115 |
116 |
117 | 
118 |
119 | 
120 |
121 |
122 |
123 |
124 |
125 |
126 |
127 |
128 |
129 |
130 |
131 |
--------------------------------------------------------------------------------
/R/frames.R:
--------------------------------------------------------------------------------
1 | #' Put Map In A Custom Frame
2 | #'
3 | #' Put your maps in a customized frame with `frame_*()` functions.
4 | #'
5 | #' DOCUMENTATION IS NEEDED
6 | #'
7 | #' `frame_1()` is a basic white square frame.
8 | #'
9 | #' @param map a map you created with mapBliss or leaflet
10 | #' @param title_text Title text
11 | #' @param subtitle_text Subtitle text
12 | #' @param title_font Title font
13 | #' @param subtitle_font Subtitle font
14 | #' @param frame_width Set by default to 100 percent. It is recommended not to change this.
15 | #' @param frame_height Set by default to 780 so as to fill the default shiny screen. Update according to your needs.
16 | #' @import shiny
17 | #' @export
18 | #' @examples
19 | #'
20 | #' plot_city_view("Jersalem, IL") |>
21 | #' frame_1(title_text="Jerusalem", subtitle_text="City of Gold", subtitle_font="Brush Script MT")
22 |
23 | frame_1 <- function(map,
24 | title_text = "Title",
25 | subtitle_text = "Subtitle",
26 | title_font = "Brush Script MT",
27 | subtitle_font = "Trebuchet MS",
28 | frame_width = "100%",
29 | frame_height = 780) {
30 | ui <-
31 | fillPage(## see various ways of including CSS: https://shiny.rstudio.com/articles/css.html
32 | tags$head(tags$style(HTML(
33 | paste0(
34 | "
35 | #greetings{
36 | top:-8rem;
37 | position:bottom;
38 | z-index:1000;
39 | background-color:#ffffff;
40 | }
41 |
42 | .fancy_border{border:25px solid;
43 | border-color: #ffffff;
44 | }
45 | .title_text{top:-5rem;
46 | font-family:",
47 | title_font,
48 | ";
49 | text-align: center;}
50 | .subtitle_text{
51 | font-family:",
52 | subtitle_font,
53 | ";
54 | text-align: center;
55 | }
56 | "
57 | )
58 | ))),
59 | div(class = 'fancy_border', ## set CSS class to style border
60 | div(
61 | leafletOutput('map', width = frame_width, height = frame_height)
62 | ), div(id = 'greetings', uiOutput('message'))))
63 |
64 |
65 |
66 | server <- function(input, output) {
67 | output$map <- renderLeaflet({
68 | map
69 | })
70 | ## note that you can also add CSS classes here:
71 | output$message <- renderUI(tagList(
72 | h1(title_text, class = 'title_text'),
73 | h3(subtitle_text, class = 'subtitle_text')
74 | ))
75 |
76 | }
77 | shinyApp(ui, server)
78 | }
79 |
80 |
81 |
82 | frame_2 <- function(map,
83 | title_text = "Title",
84 | subtitle_text = "Subtitle",
85 | title_font = "Brush Script MT",
86 | subtitle_font = "Trebuchet MS",
87 | frame_width = "100%",
88 | frame_height = 780) {
89 | ui <-
90 | fillPage(## see various ways of including CSS: https://shiny.rstudio.com/articles/css.html
91 | tags$head(tags$style(HTML(
92 | css_string <- paste0(
93 | "
94 | #greetings {
95 | top: -8rem;
96 | position: absolute;
97 | z-index: 1000;
98 | background-color: #ffffff;
99 | border-radius: 50%;
100 | width: 300px; /* Adjust size as needed */
101 | height: 300px; /* Adjust size as needed */
102 | display: flex;
103 | justify-content: center;
104 | align-items: center;
105 | overflow: hidden;
106 | }
107 |
108 | .fancy_border {
109 | border: 25px solid #ffffff; /* Adjust color and width as needed */
110 | border-radius: 50%;
111 | width: 300px; /* Match the width of #greetings */
112 | height: 300px; /* Match the height of #greetings */
113 | display: flex;
114 | justify-content: center;
115 | align-items: center;
116 | overflow: hidden;
117 | position: relative;
118 | }
119 |
120 | .title_text {
121 | position: absolute;
122 | top: -5rem;
123 | font-family:",
124 | title_font,
125 | ";
126 | text-align: center;
127 | width: 100%;
128 | }
129 |
130 | .subtitle_text {
131 | position: absolute;
132 | top: 1rem; /* Adjust position as needed */
133 | font-family: ",
134 | subtitle_font,
135 | ";
136 | text-align: center;
137 | width: 100%;
138 | }
139 |
140 | /* Ensure the text fits well within the circular frame */
141 | .title_text, .subtitle_text {
142 | padding: 0 1rem;
143 | }
144 | "
145 | )
146 | ))),
147 | div(class = 'fancy_border', ## set CSS class to style border
148 | div(
149 | leafletOutput('map', width = frame_width, height = frame_height)
150 | ), div(id = 'greetings', uiOutput('message'))))
151 |
152 |
153 |
154 | server <- function(input, output) {
155 | output$map <- renderLeaflet({
156 | map
157 | })
158 | ## note that you can also add CSS classes here:
159 | output$message <- renderUI(tagList(
160 | h1(title_text, class = 'title_text'),
161 | h3(subtitle_text, class = 'subtitle_text')
162 | ))
163 |
164 | }
165 | shinyApp(ui, server)
166 | }
167 |
--------------------------------------------------------------------------------
/R/plot_hybrid_route_flex.R:
--------------------------------------------------------------------------------
1 | #' Plot Hybrid Route With More Flexibility
2 | #'
3 | #'DISCLAIMER: the `_flex()` functions offer more flexibility in label placement and will offer new features under development for the `mapBliss` package. These functions will be subject to change more regularly than the standard functions.
4 | #'
5 | #'DOCUMENTATION IS NEEDED
6 | #'
7 | #'Plot multiple stops on a route `plot_hybrid route_flex()`. This function produces a html object so in order to save the image as an .svg (for printable visuals) check out the `save_map_svg()`. This function differs from `plot_route_flex()` and `plot_flights_flex()` as it accommodates a hybrid route where some locations are traveled via flight and others are traveled via car, bike or foot.
8 | #'
9 | #'@param addresses The stops on your route
10 | #'@param how Routing profile(s) to use, e.g. "car", "bike" or "foot" (when using the routing.openstreetmap.de test server) AND "flight". n-1 routing profiles are required for for n addresses
11 | #'@param colour what colour you want the route line to be colored
12 | #'@param opacity line opacity - a value between 0 and 1
13 | #'@param weight Line thickness
14 | #'@param radius Point size
15 | #'@param label_text Optional. Alternative text to display as the address labels.
16 | #'@param label_position where to place each of the labels relative to the points ("bottom", "top", "left", "right")
17 | #'@param font font-family css property
18 | #'@param font_weight font-weight css property
19 | #'@param font_size font-size css property
20 | #'@param text_indent text indent css property
21 | #'@param mapBoxTemplate The MapBox template you want to use.
22 | #'@param nCurves flight path smoothness. I have found setting this to 100 works best, but feel free to play around with it.
23 | #'@param zoomControl The zoom control for your bounding box. Default Format is `c(lng1,lat1,lng2,lat2)`
24 | #'@importFrom osrm osrmRoute
25 | #'@importFrom sf st_geometry
26 | #'@importFrom magrittr %>%
27 | #'@importFrom tibble tibble
28 | #'@importFrom tibble as_tibble
29 | #'@importFrom tidygeocoder geocode
30 | #'@importFrom dplyr transmute
31 | #'@importFrom purrr set_names
32 | #'@importFrom geosphere gcIntermediate
33 | #'@import leaflet
34 | #'@export
35 | #'
36 | #'@examples
37 | #'viz_1<-plot_hybrid_route_flex(addresses=c("Amsterdam","London","Newcastle upon Tyne"),
38 | #' how=c("car","car"),
39 | #' weight=3,
40 | #' colour="red",
41 | #' label_position = c("left","left","left"),
42 | #' text_indent= c("-6em","-5em","-13em"),
43 | #' mapBoxTemplate="//{s}.tile.openstreetmap.org/{z}/{x}/{y}.png"
44 | #' )
45 | #'viz_1
46 |
47 | plot_hybrid_route_flex <- function(addresses,
48 | how = c("car", "flight", "bike", "foot"),
49 | colour = "black",
50 | opacity = 1,
51 | weight = 1,
52 | radius = 2,
53 | label_text = addresses,
54 | label_position = "bottom",
55 | font = "Lucida Console",
56 | font_weight = "bold",
57 | font_size = "14px",
58 | text_indent = "15px",
59 | mapBoxTemplate = "//{s}.tile.openstreetmap.org/{z}/{x}/{y}.png",
60 | nCurves = 100,
61 | zoomControl = c(0.1, 0.1, -0.1, -0.1)) {
62 | address_single <- tibble(singlelineaddress = addresses) %>%
63 | geocode(address = singlelineaddress, method = 'arcgis') %>%
64 | transmute(id = singlelineaddress, lon = long, lat = lat)
65 |
66 | trip <- matrix(nrow = 1, ncol = 2)
67 |
68 |
69 | for (i in 1:(nrow(address_single) - 1)) {
70 | if (how[i] == "flight") {
71 | trip <- rbind(
72 | trip,
73 | gcIntermediate(
74 | address_single[i, 2:3],
75 | address_single[i + 1, 2:3],
76 | n = nCurves,
77 | addStartEnd = T
78 | )
79 | )
80 | } else{
81 | roadTrip <- osrmRoute(
82 | src = address_single[i, 2:3] %>% c %>% unlist,
83 | dst = address_single[i + 1, 2:3] %>% c %>% unlist,
84 | overview = "full",
85 | osrm.profile = how[i]
86 | )
87 |
88 |
89 | roadTrip <- do.call(rbind, st_geometry(roadTrip)) %>%
90 | as_tibble(.name_repair = "unique") %>%
91 | set_names(c("lon", "lat")) %>%
92 | as.data.frame() %>%
93 | as.matrix()
94 |
95 | trip <- rbind(trip, roadTrip)
96 | }
97 |
98 | }
99 |
100 |
101 | m <- leaflet(trip,
102 | options = leafletOptions(zoomControl = FALSE, attributionControl =
103 | FALSE)) %>%
104 | fitBounds(
105 | lng1 = max(address_single$lon) + zoomControl[1],
106 | lat1 = max(address_single$lat) + zoomControl[2],
107 | lng2 = min(address_single$lon) + zoomControl[3],
108 | lat2 = min(address_single$lat) + zoomControl[4]
109 | ) %>%
110 | addTiles(urlTemplate = mapBoxTemplate) %>%
111 | addCircleMarkers(
112 | lat = address_single$lat,
113 | lng = address_single$lon,
114 | color = colour,
115 | stroke = TRUE,
116 | radius = radius,
117 | fillOpacity = opacity
118 | ) %>%
119 | addPolylines(
120 | lng = trip[, 1],
121 | lat = trip[, 2],
122 | color = colour,
123 | opacity = opacity,
124 | weight = weight
125 | )
126 |
127 | for (i in 1:nrow(address_single)) {
128 | m <- m %>%
129 | addLabelOnlyMarkers(
130 | address_single$lon[i],
131 | address_single$lat[i],
132 | label = label_text[i],
133 | labelOptions = labelOptions(
134 | noHide = T,
135 | direction = label_position[i],
136 | textOnly = T,
137 | style =
138 | list(
139 | "font-family" = font,
140 | "font-weight" = font_weight,
141 | "font-size" = font_size,
142 | "padding" = text_indent[i],
143 | "color" = colour
144 | )
145 | )
146 | )
147 | }
148 |
149 | m
150 | }
151 |
--------------------------------------------------------------------------------
/docs/reference/index.html:
--------------------------------------------------------------------------------
1 |
2 | Function reference • mapBliss
6 |
7 |
8 |
9 |
31 |
32 |
33 |
34 |
35 |
36 |
37 | Reference
38 |
39 |
40 |
41 | All functions
42 |
43 |
44 |
45 |
46 |
47 | Put Map In A Custom Frame
49 |
50 |
51 | Plot A City View Map
53 |
54 |
55 | Plot Flight Paths
57 |
58 |
59 | Plot Flight Paths With More Flexibility
61 |
62 |
63 | Plot Hybrid Route
65 |
66 |
67 | Plot Hybrid Route With More Flexibility
69 |
70 |
71 | Plot Road Trip Route
73 |
74 |
75 | Plot Road Trip Route With More Flexibility
77 |
78 |
79 | Save Framed Map as .svg
81 |
82 |
83 | Save Map as .svg
85 |
86 |
89 |
90 |
91 |
92 |
101 |
102 |
103 |
104 |
105 |
106 |
107 |
108 |
109 |
--------------------------------------------------------------------------------
/docs/pkgdown.css:
--------------------------------------------------------------------------------
1 | /* Sticky footer */
2 |
3 | /**
4 | * Basic idea: https://philipwalton.github.io/solved-by-flexbox/demos/sticky-footer/
5 | * Details: https://github.com/philipwalton/solved-by-flexbox/blob/master/assets/css/components/site.css
6 | *
7 | * .Site -> body > .container
8 | * .Site-content -> body > .container .row
9 | * .footer -> footer
10 | *
11 | * Key idea seems to be to ensure that .container and __all its parents__
12 | * have height set to 100%
13 | *
14 | */
15 |
16 | html, body {
17 | height: 100%;
18 | }
19 |
20 | body {
21 | position: relative;
22 | }
23 |
24 | body > .container {
25 | display: flex;
26 | height: 100%;
27 | flex-direction: column;
28 | }
29 |
30 | body > .container .row {
31 | flex: 1 0 auto;
32 | }
33 |
34 | footer {
35 | margin-top: 45px;
36 | padding: 35px 0 36px;
37 | border-top: 1px solid #e5e5e5;
38 | color: #666;
39 | display: flex;
40 | flex-shrink: 0;
41 | }
42 | footer p {
43 | margin-bottom: 0;
44 | }
45 | footer div {
46 | flex: 1;
47 | }
48 | footer .pkgdown {
49 | text-align: right;
50 | }
51 | footer p {
52 | margin-bottom: 0;
53 | }
54 |
55 | img.icon {
56 | float: right;
57 | }
58 |
59 | /* Ensure in-page images don't run outside their container */
60 | .contents img {
61 | max-width: 100%;
62 | height: auto;
63 | }
64 |
65 | /* Fix bug in bootstrap (only seen in firefox) */
66 | summary {
67 | display: list-item;
68 | }
69 |
70 | /* Typographic tweaking ---------------------------------*/
71 |
72 | .contents .page-header {
73 | margin-top: calc(-60px + 1em);
74 | }
75 |
76 | dd {
77 | margin-left: 3em;
78 | }
79 |
80 | /* Section anchors ---------------------------------*/
81 |
82 | a.anchor {
83 | display: none;
84 | margin-left: 5px;
85 | width: 20px;
86 | height: 20px;
87 |
88 | background-image: url(./link.svg);
89 | background-repeat: no-repeat;
90 | background-size: 20px 20px;
91 | background-position: center center;
92 | }
93 |
94 | h1:hover .anchor,
95 | h2:hover .anchor,
96 | h3:hover .anchor,
97 | h4:hover .anchor,
98 | h5:hover .anchor,
99 | h6:hover .anchor {
100 | display: inline-block;
101 | }
102 |
103 | /* Fixes for fixed navbar --------------------------*/
104 |
105 | .contents h1, .contents h2, .contents h3, .contents h4 {
106 | padding-top: 60px;
107 | margin-top: -40px;
108 | }
109 |
110 | /* Navbar submenu --------------------------*/
111 |
112 | .dropdown-submenu {
113 | position: relative;
114 | }
115 |
116 | .dropdown-submenu>.dropdown-menu {
117 | top: 0;
118 | left: 100%;
119 | margin-top: -6px;
120 | margin-left: -1px;
121 | border-radius: 0 6px 6px 6px;
122 | }
123 |
124 | .dropdown-submenu:hover>.dropdown-menu {
125 | display: block;
126 | }
127 |
128 | .dropdown-submenu>a:after {
129 | display: block;
130 | content: " ";
131 | float: right;
132 | width: 0;
133 | height: 0;
134 | border-color: transparent;
135 | border-style: solid;
136 | border-width: 5px 0 5px 5px;
137 | border-left-color: #cccccc;
138 | margin-top: 5px;
139 | margin-right: -10px;
140 | }
141 |
142 | .dropdown-submenu:hover>a:after {
143 | border-left-color: #ffffff;
144 | }
145 |
146 | .dropdown-submenu.pull-left {
147 | float: none;
148 | }
149 |
150 | .dropdown-submenu.pull-left>.dropdown-menu {
151 | left: -100%;
152 | margin-left: 10px;
153 | border-radius: 6px 0 6px 6px;
154 | }
155 |
156 | /* Sidebar --------------------------*/
157 |
158 | #pkgdown-sidebar {
159 | margin-top: 30px;
160 | position: -webkit-sticky;
161 | position: sticky;
162 | top: 70px;
163 | }
164 |
165 | #pkgdown-sidebar h2 {
166 | font-size: 1.5em;
167 | margin-top: 1em;
168 | }
169 |
170 | #pkgdown-sidebar h2:first-child {
171 | margin-top: 0;
172 | }
173 |
174 | #pkgdown-sidebar .list-unstyled li {
175 | margin-bottom: 0.5em;
176 | }
177 |
178 | /* bootstrap-toc tweaks ------------------------------------------------------*/
179 |
180 | /* All levels of nav */
181 |
182 | nav[data-toggle='toc'] .nav > li > a {
183 | padding: 4px 20px 4px 6px;
184 | font-size: 1.5rem;
185 | font-weight: 400;
186 | color: inherit;
187 | }
188 |
189 | nav[data-toggle='toc'] .nav > li > a:hover,
190 | nav[data-toggle='toc'] .nav > li > a:focus {
191 | padding-left: 5px;
192 | color: inherit;
193 | border-left: 1px solid #878787;
194 | }
195 |
196 | nav[data-toggle='toc'] .nav > .active > a,
197 | nav[data-toggle='toc'] .nav > .active:hover > a,
198 | nav[data-toggle='toc'] .nav > .active:focus > a {
199 | padding-left: 5px;
200 | font-size: 1.5rem;
201 | font-weight: 400;
202 | color: inherit;
203 | border-left: 2px solid #878787;
204 | }
205 |
206 | /* Nav: second level (shown on .active) */
207 |
208 | nav[data-toggle='toc'] .nav .nav {
209 | display: none; /* Hide by default, but at >768px, show it */
210 | padding-bottom: 10px;
211 | }
212 |
213 | nav[data-toggle='toc'] .nav .nav > li > a {
214 | padding-left: 16px;
215 | font-size: 1.35rem;
216 | }
217 |
218 | nav[data-toggle='toc'] .nav .nav > li > a:hover,
219 | nav[data-toggle='toc'] .nav .nav > li > a:focus {
220 | padding-left: 15px;
221 | }
222 |
223 | nav[data-toggle='toc'] .nav .nav > .active > a,
224 | nav[data-toggle='toc'] .nav .nav > .active:hover > a,
225 | nav[data-toggle='toc'] .nav .nav > .active:focus > a {
226 | padding-left: 15px;
227 | font-weight: 500;
228 | font-size: 1.35rem;
229 | }
230 |
231 | /* orcid ------------------------------------------------------------------- */
232 |
233 | .orcid {
234 | font-size: 16px;
235 | color: #A6CE39;
236 | /* margins are required by official ORCID trademark and display guidelines */
237 | margin-left:4px;
238 | margin-right:4px;
239 | vertical-align: middle;
240 | }
241 |
242 | /* Reference index & topics ----------------------------------------------- */
243 |
244 | .ref-index th {font-weight: normal;}
245 |
246 | .ref-index td {vertical-align: top; min-width: 100px}
247 | .ref-index .icon {width: 40px;}
248 | .ref-index .alias {width: 40%;}
249 | .ref-index-icons .alias {width: calc(40% - 40px);}
250 | .ref-index .title {width: 60%;}
251 |
252 | .ref-arguments th {text-align: right; padding-right: 10px;}
253 | .ref-arguments th, .ref-arguments td {vertical-align: top; min-width: 100px}
254 | .ref-arguments .name {width: 20%;}
255 | .ref-arguments .desc {width: 80%;}
256 |
257 | /* Nice scrolling for wide elements --------------------------------------- */
258 |
259 | table {
260 | display: block;
261 | overflow: auto;
262 | }
263 |
264 | /* Syntax highlighting ---------------------------------------------------- */
265 |
266 | pre, code, pre code {
267 | background-color: #f8f8f8;
268 | color: #333;
269 | }
270 | pre, pre code {
271 | white-space: pre-wrap;
272 | word-break: break-all;
273 | overflow-wrap: break-word;
274 | }
275 |
276 | pre {
277 | border: 1px solid #eee;
278 | }
279 |
280 | pre .img, pre .r-plt {
281 | margin: 5px 0;
282 | }
283 |
284 | pre .img img, pre .r-plt img {
285 | background-color: #fff;
286 | }
287 |
288 | code a, pre a {
289 | color: #375f84;
290 | }
291 |
292 | a.sourceLine:hover {
293 | text-decoration: none;
294 | }
295 |
296 | .fl {color: #1514b5;}
297 | .fu {color: #000000;} /* function */
298 | .ch,.st {color: #036a07;} /* string */
299 | .kw {color: #264D66;} /* keyword */
300 | .co {color: #888888;} /* comment */
301 |
302 | .error {font-weight: bolder;}
303 | .warning {font-weight: bolder;}
304 |
305 | /* Clipboard --------------------------*/
306 |
307 | .hasCopyButton {
308 | position: relative;
309 | }
310 |
311 | .btn-copy-ex {
312 | position: absolute;
313 | right: 0;
314 | top: 0;
315 | visibility: hidden;
316 | }
317 |
318 | .hasCopyButton:hover button.btn-copy-ex {
319 | visibility: visible;
320 | }
321 |
322 | /* headroom.js ------------------------ */
323 |
324 | .headroom {
325 | will-change: transform;
326 | transition: transform 200ms linear;
327 | }
328 | .headroom--pinned {
329 | transform: translateY(0%);
330 | }
331 | .headroom--unpinned {
332 | transform: translateY(-100%);
333 | }
334 |
335 | /* mark.js ----------------------------*/
336 |
337 | mark {
338 | background-color: rgba(255, 255, 51, 0.5);
339 | border-bottom: 2px solid rgba(255, 153, 51, 0.3);
340 | padding: 1px;
341 | }
342 |
343 | /* vertical spacing after htmlwidgets */
344 | .html-widget {
345 | margin-bottom: 10px;
346 | }
347 |
348 | /* fontawesome ------------------------ */
349 |
350 | .fab {
351 | font-family: "Font Awesome 5 Brands" !important;
352 | }
353 |
354 | /* don't display links in code chunks when printing */
355 | /* source: https://stackoverflow.com/a/10781533 */
356 | @media print {
357 | code a:link:after, code a:visited:after {
358 | content: "";
359 | }
360 | }
361 |
362 | /* Section anchors ---------------------------------
363 | Added in pandoc 2.11: https://github.com/jgm/pandoc-templates/commit/9904bf71
364 | */
365 |
366 | div.csl-bib-body { }
367 | div.csl-entry {
368 | clear: both;
369 | }
370 | .hanging-indent div.csl-entry {
371 | margin-left:2em;
372 | text-indent:-2em;
373 | }
374 | div.csl-left-margin {
375 | min-width:2em;
376 | float:left;
377 | }
378 | div.csl-right-inline {
379 | margin-left:2em;
380 | padding-left:1em;
381 | }
382 | div.csl-indent {
383 | margin-left: 2em;
384 | }
385 |
--------------------------------------------------------------------------------
/docs/docsearch.css:
--------------------------------------------------------------------------------
1 | /* Docsearch -------------------------------------------------------------- */
2 | /*
3 | Source: https://github.com/algolia/docsearch/
4 | License: MIT
5 | */
6 |
7 | .algolia-autocomplete {
8 | display: block;
9 | -webkit-box-flex: 1;
10 | -ms-flex: 1;
11 | flex: 1
12 | }
13 |
14 | .algolia-autocomplete .ds-dropdown-menu {
15 | width: 100%;
16 | min-width: none;
17 | max-width: none;
18 | padding: .75rem 0;
19 | background-color: #fff;
20 | background-clip: padding-box;
21 | border: 1px solid rgba(0, 0, 0, .1);
22 | box-shadow: 0 .5rem 1rem rgba(0, 0, 0, .175);
23 | }
24 |
25 | @media (min-width:768px) {
26 | .algolia-autocomplete .ds-dropdown-menu {
27 | width: 175%
28 | }
29 | }
30 |
31 | .algolia-autocomplete .ds-dropdown-menu::before {
32 | display: none
33 | }
34 |
35 | .algolia-autocomplete .ds-dropdown-menu [class^=ds-dataset-] {
36 | padding: 0;
37 | background-color: rgb(255,255,255);
38 | border: 0;
39 | max-height: 80vh;
40 | }
41 |
42 | .algolia-autocomplete .ds-dropdown-menu .ds-suggestions {
43 | margin-top: 0
44 | }
45 |
46 | .algolia-autocomplete .algolia-docsearch-suggestion {
47 | padding: 0;
48 | overflow: visible
49 | }
50 |
51 | .algolia-autocomplete .algolia-docsearch-suggestion--category-header {
52 | padding: .125rem 1rem;
53 | margin-top: 0;
54 | font-size: 1.3em;
55 | font-weight: 500;
56 | color: #00008B;
57 | border-bottom: 0
58 | }
59 |
60 | .algolia-autocomplete .algolia-docsearch-suggestion--wrapper {
61 | float: none;
62 | padding-top: 0
63 | }
64 |
65 | .algolia-autocomplete .algolia-docsearch-suggestion--subcategory-column {
66 | float: none;
67 | width: auto;
68 | padding: 0;
69 | text-align: left
70 | }
71 |
72 | .algolia-autocomplete .algolia-docsearch-suggestion--content {
73 | float: none;
74 | width: auto;
75 | padding: 0
76 | }
77 |
78 | .algolia-autocomplete .algolia-docsearch-suggestion--content::before {
79 | display: none
80 | }
81 |
82 | .algolia-autocomplete .ds-suggestion:not(:first-child) .algolia-docsearch-suggestion--category-header {
83 | padding-top: .75rem;
84 | margin-top: .75rem;
85 | border-top: 1px solid rgba(0, 0, 0, .1)
86 | }
87 |
88 | .algolia-autocomplete .ds-suggestion .algolia-docsearch-suggestion--subcategory-column {
89 | display: block;
90 | padding: .1rem 1rem;
91 | margin-bottom: 0.1;
92 | font-size: 1.0em;
93 | font-weight: 400
94 | /* display: none */
95 | }
96 |
97 | .algolia-autocomplete .algolia-docsearch-suggestion--title {
98 | display: block;
99 | padding: .25rem 1rem;
100 | margin-bottom: 0;
101 | font-size: 0.9em;
102 | font-weight: 400
103 | }
104 |
105 | .algolia-autocomplete .algolia-docsearch-suggestion--text {
106 | padding: 0 1rem .5rem;
107 | margin-top: -.25rem;
108 | font-size: 0.8em;
109 | font-weight: 400;
110 | line-height: 1.25
111 | }
112 |
113 | .algolia-autocomplete .algolia-docsearch-footer {
114 | width: 110px;
115 | height: 20px;
116 | z-index: 3;
117 | margin-top: 10.66667px;
118 | float: right;
119 | font-size: 0;
120 | line-height: 0;
121 | }
122 |
123 | .algolia-autocomplete .algolia-docsearch-footer--logo {
124 | background-image: url("data:image/svg+xml;utf8,");
125 | background-repeat: no-repeat;
126 | background-position: 50%;
127 | background-size: 100%;
128 | overflow: hidden;
129 | text-indent: -9000px;
130 | width: 100%;
131 | height: 100%;
132 | display: block;
133 | transform: translate(-8px);
134 | }
135 |
136 | .algolia-autocomplete .algolia-docsearch-suggestion--highlight {
137 | color: #FF8C00;
138 | background: rgba(232, 189, 54, 0.1)
139 | }
140 |
141 |
142 | .algolia-autocomplete .algolia-docsearch-suggestion--text .algolia-docsearch-suggestion--highlight {
143 | box-shadow: inset 0 -2px 0 0 rgba(105, 105, 105, .5)
144 | }
145 |
146 | .algolia-autocomplete .ds-suggestion.ds-cursor .algolia-docsearch-suggestion--content {
147 | background-color: rgba(192, 192, 192, .15)
148 | }
149 |
--------------------------------------------------------------------------------
/docs/index.html:
--------------------------------------------------------------------------------
1 |
2 |
3 |
4 |
5 |
6 |
7 |
8 | Plot routes and trips on beautiful maps • mapBliss
9 |
10 |
11 |
12 |
13 |
14 |
15 |
16 |
20 |
21 |
22 |
23 |
24 |
25 |
52 |
53 |
54 |
55 |
56 |
57 |
58 |
59 |
62 | Create beautiful maps of your adventures with Leaflet in R.
63 | If you want to learn how you can contribute to this project, feel free to contact me via my website.
64 | Do you see have a feature idea that you think would make mapBliss better? Feel free to open an issue and make a feature request!
65 | If you are interested in making star maps, check out starBliss
66 |
67 | Table of Contents
68 |
69 |
70 |
76 | Introduction
77 |
78 |
This package is based functions I created for creating print-quality souvenir maps like the ones you can find on Atlas.co.
79 | Update: Atlas.co announced that it has shut down, (see here). mapBliss is still ready to use!
80 |
81 | Screenshot of reddit post.
82 |
83 | For some background on how this package came to be and for updates. Feel free to check out my blogs on the topic here, or see the relevant links in Cronology and Updates
84 |
85 | Cronology and Updates
86 |
87 |
88 |
89 | Control Individual Label Positions In mapBliss With _flex() Functions
-
95 |
96 |
97 |
98 | Installing This Package
99 |
100 |
101 | devtools::install_github("benyamindsmith/mapBliss")
102 |
103 | Dependencies
104 |
105 |
This package depends on the following packages:
106 |
122 | Some Example Visuals
123 |
124 |
The following are just some screen shots of the images that can be produced. It is possible to create a map and save it as .svg file for a sharper image.
125 |
126 | image
127 |
128 |
129 | image
130 |
131 |
132 |
133 |
134 |
135 |
136 |
137 |
138 |
139 |
140 |
166 |
167 |
168 |
169 |
180 |
181 |
182 |
183 |
184 |
185 |
186 |
187 |
188 |
189 |
--------------------------------------------------------------------------------
/masks/circlular_mask.svg:
--------------------------------------------------------------------------------
1 |
2 |
3 |
345 |
--------------------------------------------------------------------------------
/LICENSE:
--------------------------------------------------------------------------------
1 | GNU GENERAL PUBLIC LICENSE
2 | Version 3, 29 June 2007
3 |
4 | Copyright (C) 2007 Free Software Foundation, Inc.
635 | Copyright (C)
636 |
637 | This program is free software: you can redistribute it and/or modify
638 | it under the terms of the GNU General Public License as published by
639 | the Free Software Foundation, either version 3 of the License, or
640 | (at your option) any later version.
641 |
642 | This program is distributed in the hope that it will be useful,
643 | but WITHOUT ANY WARRANTY; without even the implied warranty of
644 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
645 | GNU General Public License for more details.
646 |
647 | You should have received a copy of the GNU General Public License
648 | along with this program. If not, see Copyright (C)
656 | This program comes with ABSOLUTELY NO WARRANTY; for details type `show w'.
657 | This is free software, and you are welcome to redistribute it
658 | under certain conditions; type `show c' for details.
659 |
660 | The hypothetical commands `show w' and `show c' should show the appropriate
661 | parts of the General Public License. Of course, your program's commands
662 | might be different; for a GUI interface, you would use an "about box".
663 |
664 | You should also get your employer (if you work as a programmer) or school,
665 | if any, to sign a "copyright disclaimer" for the program, if necessary.
666 | For more information on this, and how to apply and follow the GNU GPL, see
667 | .
675 |
--------------------------------------------------------------------------------
12 |
13 | Table of Contents
14 |
15 |
16 |
17 | * [Introduction](https://github.com/benyamindsmith/mapBliss/main/README.md#introduction)
18 |
19 | * [Cronology and Updates](https://github.com/benyamindsmith/mapBliss/main/README.md#cronology-and-updates)
20 |
21 | * [Installing This Package](https://github.com/benyamindsmith/mapBliss/blob/main/README.md#installing-this-package)
22 |
23 | * [Dependencies](https://github.com/benyamindsmith/mapBliss/blob/main/README.md#dependencies)
24 |
25 | * [Some Example Visuals](https://github.com/benyamindsmith/mapBliss/blob/main/README.md#some-example-visuals)
26 |
30 |
31 | Introduction
32 |
33 |
34 |
35 | This package is based functions I created for creating print-quality souvenir maps like the ones you can find on (the now [defunct](https://www.reddit.com/r/KaraAndNate/comments/16lynaf/atlasco_is_shutting_down/)) [Atlas.co](atlas.co/products/map).
36 |
37 | __Update:__ Atlas.co announced that it has shut down, (see [here](https://www.reddit.com/r/KaraAndNate/comments/16lynaf/atlasco_is_shutting_down/)). `mapBliss` is still ready to use!
38 |
39 |
40 |
44 |
45 |
46 | For some background on how this package came to be and for updates. Feel free to check out my blogs on the topic [here](https://bensstats.wordpress.com/?s=atlas), or see the relevant links in [Cronology and Updates](https://github.com/benyamindsmith/mapBliss/blob/main/README.md#cronology-and-updates)
47 | 41 | Screenshot of reddit post. 42 |
43 |
51 |
52 | Cronology and Updates
53 |
54 |
55 |
56 | 1. [I reverse-engineered Atlas.co (well, some of it)](https://bensstats.wordpress.com/2021/10/21/robservations-15-i-reverse-engineered-atlas-co-well-some-of-it/)
57 |
58 | 2. [Using the MapBox API with Leaflet](https://bensstats.wordpress.com/2021/10/25/robservations-16-using-the-mapbox-api-with-leaflet/)
59 |
60 | 3. [Plotting Flight Paths on Leaflet Maps](https://bensstats.wordpress.com/2021/11/16/robservations-17-plotting-flight-paths-on-leaflet-maps/)
61 |
62 | 4. [**Packaging My Route Map Code! Introducing mapBliss.**](https://bensstats.wordpress.com/2022/10/28/robservations-40-packaging-my-route-map-code-introducting-mapbliss/)
63 |
64 | 5. [Control Individual Label Positions In mapBliss With `_flex()` Functions](https://bensstats.wordpress.com/2022/11/23/robservations-43-control-individual-label-positions-in-mapbliss-with-_flex-functions/)
65 |
66 | 6. [Adding Frame and Custom Title Support To mapBliss](https://bensstats.wordpress.com/2022/12/27/robservations-44-adding-frame-and-custom-title-support-to-mapbliss/)
67 |
68 | 7. [a journey across the United States with mapBliss](https://bensstats.wordpress.com/2024/12/15/robservations-50-a-journey-across-the-united-states-with-mapbliss/)
69 | 54 |
82 |
83 | Dependencies
84 |
85 |
86 | This package depends on the following packages:
87 |
88 | * [dplyr](https://dplyr.tidyverse.org)
89 | * [purrr](https://purrr.tidyverse.org)
90 | * [magrittr](https://magrittr.tidyverse.org)
91 | * [tibble](https://tibble.tidyverse.org)
92 | * [rlang](https://rlang.r-lib.org)
93 | * [sf](https://r-spatial.github.io/sf/)
94 | * [geosphere](http://uribo.github.io/rpkg_showcase/spatial/geosphere.html)
95 | * [tidygeocoder](https://jessecambon.github.io/tidygeocoder/)
96 | * [leaflet](https://rstudio.github.io/leaflet/)
97 | * [osrm](https://github.com/riatelab/osrm)
98 | * [webshot](https://wch.github.io/webshot/articles/intro.html)
99 | * [htmlwidgets](https://github.com/ramnathv/htmlwidgets)
100 | * [magick](https://github.com/ropensci/magick)
101 | * [shiny](https://cran.r-project.org/web/packages/shiny/index.html)
102 |
103 |
107 |
108 | Some Example Visuals
109 |
110 |
111 |
112 | The following are just some screen shots of the images that can be produced. It is possible to create a map and save it as .svg file for a sharper image.
113 |
114 | 
115 |
116 |
117 | 
118 |
119 | 
120 |
121 |
122 |
123 |
124 |
125 |
126 |
127 |
128 |
129 |
130 |
35 |
90 |
91 |
92 |
36 |
85 |
86 |
89 |
37 |
39 |
40 | Reference
38 |
41 | All functions42 | 43 | |
44 | |
|---|---|
| 45 | 46 | | 47 |Put Map In A Custom Frame |
48 |
| 49 | 50 | | 51 |Plot A City View Map |
52 |
| 53 | 54 | | 55 |Plot Flight Paths |
56 |
| 57 | 58 | | 59 |Plot Flight Paths With More Flexibility |
60 |
| 61 | 62 | | 63 |Plot Hybrid Route |
64 |
| 65 | 66 | | 67 |Plot Hybrid Route With More Flexibility |
68 |
| 69 | 70 | | 71 |Plot Road Trip Route |
72 |
| 73 | 74 | | 75 |Plot Road Trip Route With More Flexibility |
76 |
| 77 | 78 | | 79 |Save Framed Map as .svg |
80 |
| 81 | 82 | | 83 |Save Map as .svg |
84 |
57 |
167 |
168 |
169 |
180 |
58 |
139 |
140 |
166 |
59 |
62 |
83 | For some background on how this package came to be and for updates. Feel free to check out my blogs on the topic here, or see the relevant links in Cronology and Updates
84 |
138 | Create beautiful maps of your adventures with Leaflet in R.
63 |If you want to learn how you can contribute to this project, feel free to contact me via my website.
64 |Do you see have a feature idea that you think would make mapBliss better? Feel free to open an issue and make a feature request!
65 | If you are interested in making star maps, check outstarBliss
66 |
67 | Table of Contents
68 |
69 |
-
70 |
- 71 |
- 72 |
- 73 |
- 74 |
- 75 |
76 | Introduction
77 |
78 |
This package is based functions I created for creating print-quality souvenir maps like the ones you can find on Atlas.co.
79 |Update: Atlas.co announced that it has shut down, (see here). mapBliss is still ready to use!
81 | Screenshot of reddit post. 82 |
85 | Cronology and Updates
86 |
87 |
88 |
87 |
88 |-
89 |
- 90 |
- 91 |
- 92 |
- 93 |
Control Individual Label Positions In mapBliss With
_flex()Functions
94 | - 95 | 96 | 97 |
98 |
102 |
136 |
137 | Installing This Package 99 |
100 |
101 | devtools::install_github("benyamindsmith/mapBliss")
103 | Dependencies
104 |
105 |
This package depends on the following packages:
106 |
122 | Some Example Visuals
123 |
124 |
The following are just some screen shots of the images that can be produced. It is possible to create a map and save it as .svg file for a sharper image.
125 |
126 |
128 | image
127 |
129 |
131 | image
130 |