Commit 31ebb83a authored by nperez's avatar nperez
Browse files

Fixed degree symbol format to be tested

parent 598537f5
Pipeline #5798 passed with stage
in 3 minutes and 52 seconds
......@@ -713,8 +713,8 @@ PlotEquiMap <- function(var, lon, lat, varu = NULL, varv = NULL,
letters[ypos < 0] <- 'S'
letters[ypos > 0] <- 'N'
} else {
letters[ypos < 0] <- S'
letters[ypos > 0] <- N'
letters[ypos < 0] <- paste(intToUtf8(176), 'S')
letters[ypos > 0] <- paste(intToUtf8(176), 'N')
}
ylabs <- paste(as.character(abs(ypos)), letters, sep = '')
letters <- array('', length(xpos))
......@@ -726,16 +726,16 @@ PlotEquiMap <- function(var, lon, lat, varu = NULL, varv = NULL,
letters[xpos < 0] <- 'W'
letters[xpos > 0] <- 'E'
} else {
letters[xpos < 0] <- W'
letters[xpos > 0] <- E'
letters[xpos < 0] <- paste(intToUtf8(176), 'W')
letters[xpos > 0] <- paste(intToUtf8(176), 'E')
}
if (labW) {
letters[xpos == 0] <- ' '
letters[xpos == 180] <- ' '
if (degree_sum == FALSE) {
if (degree_sym == FALSE) {
letters[xpos > 180] <- 'W'
} else {
letters[xpos > 180] <- W'
letters[xpos > 180] <- paste(intToUtf8(176), 'W')
}
xlabs <- paste(as.character(abs(xpos2)), letters, sep = '')
} else {
......
......@@ -47,6 +47,7 @@ PlotEquiMap(
labW = FALSE,
lab_dist_x = NULL,
lab_dist_y = NULL,
degree_sym = FALSE,
intylat = 20,
intxlon = 20,
axes_tick_scale = 1,
......@@ -229,6 +230,8 @@ the function.}
box borders. The default value is NULL and is automatically adjusted by
the function.}
\item{degree_sym}{A logical indicating whether to include degree symbol (30° N) or not (30N; default).}
\item{intylat}{Interval between latitude ticks on y-axis, in degrees.
Defaults to 20.}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment