Merge pull request #39 from mdsumner/measures-named-message

mpadge · web-flow · commit df073cd33d8f · 2024-05-10T07:32:39.000+02:00
augment 'cheap' warn message with named measures
diff --git a/R/utils.R b/R/utils.R
@@ -183,7 +183,8 @@ check_max_d <- function (d, measure) {
         message (
             "Maximum distance is > 100km. The 'cheap' measure is ",
             "inaccurate over such\nlarge distances, you'd likely ",
-            "be better using a different 'measure'."
+            "be better using a different 'measure', \n", 
+            "one of 'haversine', 'vincenty', or 'geodesic'. "
         )
     }
 }

Original file line number	Diff line number	Diff line change
`@@ -183,7 +183,8 @@ check_max_d <- function (d, measure) {`
`183`	`183`	`message (`
`184`	`184`	`"Maximum distance is > 100km. The 'cheap' measure is ",`
`185`	`185`	`"inaccurate over such\nlarge distances, you'd likely ",`
`186`		`- "be better using a different 'measure'."`
	`186`	`+ "be better using a different 'measure', \n",`
	`187`	`+ "one of 'haversine', 'vincenty', or 'geodesic'. "`
`187`	`188`	`)`
`188`	`189`	`}`
`189`	`190`	`}`