tidy make_map help

R/make_map.R

@@ -15,7 +15,7 @@
 #'   which is only accessible using a Web Map Service (WMS),
 #'   see `protocol` argument.
 #' @param ...
-#'   Arguments to be passed to the [`leaflet::leaflet`] function.
+#'   Arguments to be passed to the [`leaflet`][leaflet::leaflet] function.
 #' @param protocol 'character' string.
 #'   Standard protocol for serving pre-rendered georeferenced TNM map tiles.
 #'   Select "WMTS" for the Web Map Tile Service (the default) and "WMS" for the Web Map Service.
@@ -71,13 +71,13 @@
 #'
 #' @examples
 #'
-#' # create map widget
+#' # Create map widget
 #' map <- make_map()
 #'
-#' # print map widget
+#' # Print map widget
 #' map
 #'
-#' # print map with markers
+#' # Print map with markers
 #' pts <- rbind(
 #'   c(-112.049, 43.517),
 #'   c(-122.171, 37.456),
@@ -90,7 +90,7 @@
 #'   lat = pts[, 2]
 #' )
 #'
-#' # print map of satellite imagery with a rectangle in the vicinity of UCLA
+#' # Print map of satellite imagery with a rectangle in the vicinity of UCLA
 #' make_map(
 #'   maps = "Imagery",
 #'   collapse = TRUE
@@ -149,7 +149,7 @@ make_map <- function(maps,
     ),
     htmltools::tags$a(
       href = "https://www.usgs.gov/laws/policies_notices.html",
-      title = "USGS policies and notices",
+      title = "Policies and notices",
       target = "_blank",
       "Policies"
     ),

man/make_map.Rd

@@ -22,7 +22,7 @@ The one exception is the "Blank" map,
 which is only accessible using a Web Map Service (WMS),
 see \code{protocol} argument.}
 
-\item{...}{Arguments to be passed to the \code{\link[leaflet:leaflet]{leaflet::leaflet}} function.}
+\item{...}{Arguments to be passed to the \code{\link[leaflet:leaflet]{leaflet}} function.}
 
 \item{protocol}{'character' string.
 Standard protocol for serving pre-rendered georeferenced TNM map tiles.
@@ -88,13 +88,13 @@ United States, Alaska, Hawaii, and Territorial Islands of the United States.\if{
 }
 \examples{
 
-# create map widget
+# Create map widget
 map <- make_map()
 
-# print map widget
+# Print map widget
 map
 
-# print map with markers
+# Print map with markers
 pts <- rbind(
   c(-112.049, 43.517),
   c(-122.171, 37.456),
@@ -107,7 +107,7 @@ leaflet::addMarkers(map,
   lat = pts[, 2]
 )
 
-# print map of satellite imagery with a rectangle in the vicinity of UCLA
+# Print map of satellite imagery with a rectangle in the vicinity of UCLA
 make_map(
   maps = "Imagery",
   collapse = TRUE