tweak example

Author: rpruim

R/gf_functions.R

@@ -2849,11 +2849,9 @@ gf_sina <-
 # #' @seealso [ggplot2::geom_sf()]
 #' @export
 #' @examples
-#'
-#' \dontrun{
+#
 #' if (requireNamespace('maps', quietly = TRUE)) {
-#'   library(maps)
-#'   world1 <- sf::st_as_sf(map('world', plot = FALSE, fill = TRUE))
+#'   world1 <- sf::st_as_sf(maps::map('world', plot = FALSE, fill = TRUE))
 #'   gf_sf(data = world1)
 #' }
 #'
@@ -2864,7 +2862,6 @@ gf_sina <-
 #'   )
 #'   gf_sf(data = world2)
 #' }
-#' }
 
 # \dontrun{
 # if (require(maps) && require(maptools) &&