change 'cat' -> 'message' for #59

Author: mpadge

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: osmplotr
 Title: Bespoke Images of 'OpenStreetMap' Data
-Version: 0.3.5.017
+Version: 0.3.5.018
 Authors@R: 
     c(person(given = "Mark",
              family = "Padgham",

R/extract-highways.R

@@ -71,7 +71,7 @@ abbreviate_hwy_names <- function (highway_names, nletters = 2) {
 
 dl_hw_data <- function (highway_names, hw_abbrvs, bbox) {
 
-    cat ("Downloading OSM data ...\n")
+    message ("Downloading OSM data ...")
     p4s <- NULL
     lens_old <- length (highway_names)
     lens <- 0

R/make-osm-map.R

@@ -131,9 +131,9 @@ get_bbox_from_data <- function (osm_data) {
 
 get_missing_osm_data <- function (osm_data, structures, bbox, dat_prefix) {
 
-    cat (
-        "Downloading and extracting OSM data for",
-        nrow (structures), "structures ...\n"
+    message (
+        "Downloading and extracting OSM data for ",
+        nrow (structures), " structures ..."
     )
     pb <- txtProgressBar (max = 1, style = 3)
     t0 <- proc.time ()
@@ -163,7 +163,7 @@ get_missing_osm_data <- function (osm_data, structures, bbox, dat_prefix) {
         setTxtProgressBar (pb, i / nrow (structures))
     }
     close (pb)
-    cat ("That took ", (proc.time () - t0) [3], "s\n", sep = "")
+    message ("That took ", (proc.time () - t0) [3], "s\n", sep = "")
 
     list ("indx" = indx, "osm_data" = osm_data)
 }

codemeta.json

@@ -8,7 +8,7 @@
   "codeRepository": "https://github.com/ropensci/osmplotr",
   "issueTracker": "https://github.com/ropensci/osmplotr/issues",
   "license": "https://spdx.org/licenses/GPL-3.0",
-  "version": "0.3.5.017",
+  "version": "0.3.5.018",
   "programmingLanguage": {
     "@type": "ComputerLanguage",
     "name": "R",