properly use format in degreeLabelsXX; #829

edzer · edzer · commit 631295e587d5 · 2018-08-24T09:24:39.000+02:00
diff --git a/R/graticule.R b/R/graticule.R
@@ -217,7 +217,7 @@ trim_bb = function(bb = c(-180, -90, 180, 90), margin, wrap=c(-180,180)) {
 degreeLabelsNS = function(x) {
 	pos = sign(x) + 2
 	dir = c("*S", "", "*N")
-	paste0(abs(x), "*degree", dir[pos])
+	paste0("`", format(abs(x)), "`", "*degree", dir[pos])
 }
 
 degreeLabelsEW = function(x) {
@@ -228,5 +228,5 @@ degreeLabelsEW = function(x) {
 	if (any(x == 180))
 		pos[x == 180] = 2
 	dir = c("*W", "", "*E")
-	paste0(abs(x), "*degree", dir[pos])
+	paste0("`", format(abs(x)), "`", "*degree", dir[pos])
 }

Original file line number	Diff line number	Diff line change
`@@ -217,7 +217,7 @@ trim_bb = function(bb = c(-180, -90, 180, 90), margin, wrap=c(-180,180)) {`
`217`	`217`	`degreeLabelsNS = function(x) {`
`218`	`218`	`pos = sign(x) + 2`
`219`	`219`	`dir = c("S", "", "N")`
`220`		`- paste0(abs(x), "*degree", dir[pos])`
	`220`	+ paste0("`", format(abs(x)), "`", "*degree", dir[pos])
`221`	`221`	`}`
`222`	`222`
`223`	`223`	`degreeLabelsEW = function(x) {`
`@@ -228,5 +228,5 @@ degreeLabelsEW = function(x) {`
`228`	`228`	`if (any(x == 180))`
`229`	`229`	`pos[x == 180] = 2`
`230`	`230`	`dir = c("W", "", "E")`
`231`		`- paste0(abs(x), "*degree", dir[pos])`
	`231`	+ paste0("`", format(abs(x)), "`", "*degree", dir[pos])
`232`	`232`	`}`