revise screenshots in make_map

R/make_map.R

@@ -53,9 +53,10 @@
 #'     of best available raster elevation data, in the form of digital elevation models (DEMs) for the conterminous
 #'     United States, Alaska, Hawaii, and Territorial Islands of the United States.<br/>
 #'     \if{latex}{\cr} ![](basemap-shaded-relief.png)
+#'   * "OSM" is the [OpenStreetMap](https://www.openstreetmap.org/about) tile base map.<br/>
+#'     \if{latex}{\cr} ![](basemap-osm.png)
 #'   * "Blank" consists of ocean tints to give the outline of land cover as an empty base map.<br/>
 #'     \if{latex}{\cr} ![](basemap-blank.png)
-#'   * "OSM" is the [OpenStreetMap](https://www.openstreetmap.org/about) tile base map.
 #'
 #' @return An object of class 'leaflet', a hypertext markup language (HTML) map widget.
 #'   See example for instructions on how to add additional graphic layers
@@ -68,7 +69,6 @@
 #' @export
 #'
 #' @examples
-#'
 #' # Create map widget
 #' map <- make_map()
 #'
@@ -119,8 +119,8 @@ make_map <- function(maps,
     "Imagery Topo" = "USGSImageryTopo",
     "Hydrography" = "USGSHydroCached",
     "Shaded Relief" = "USGSShadedReliefOnly",
-    "Blank" = "USGSTNMBlank",
-    "OSM" = "OpenStreetMap"
+    "OSM" = "OpenStreetMap",
+    "Blank" = "USGSTNMBlank"
   )
   if (missing(maps)) {
     maps <- names(basemaps)

man/make_map.Rd

@@ -79,13 +79,13 @@ stream gages and dams, and additional hydrologic information.\if{html}{\out{<br/
 of best available raster elevation data, in the form of digital elevation models (DEMs) for the conterminous
 United States, Alaska, Hawaii, and Territorial Islands of the United States.\if{html}{\out{<br/>}}
 \if{latex}{\cr} \figure{basemap-shaded-relief.png}
+\item "OSM" is the \href{https://www.openstreetmap.org/about}{OpenStreetMap} tile base map.\if{html}{\out{<br/>}}
+\if{latex}{\cr} \figure{basemap-osm.png}
 \item "Blank" consists of ocean tints to give the outline of land cover as an empty base map.\if{html}{\out{<br/>}}
 \if{latex}{\cr} \figure{basemap-blank.png}
-\item "OSM" is the \href{https://www.openstreetmap.org/about}{OpenStreetMap} tile base map.
 }
 }
 \examples{
-
 # Create map widget
 map <- make_map()