aboutsummaryrefslogtreecommitdiff
path: root/R
diff options
context:
space:
mode:
authorJohannes Ranke <jranke@uni-bremen.de>2017-03-29 19:24:37 +0200
committerJohannes Ranke <jranke@uni-bremen.de>2017-03-29 19:24:37 +0200
commitb052bf8d1e090e07bf0853f0aa8b895db8f41a2a (patch)
tree448b392cd3b81421dbe48893e1f1e90f70308d87 /R
parentd69fda8d8f854b735394ecdaec9d59fb18c42b00 (diff)
Make it possible to use expressions in axis labels
Diffstat (limited to 'R')
-rw-r--r--R/TOXSWA_cwa.R4
1 files changed, 2 insertions, 2 deletions
diff --git a/R/TOXSWA_cwa.R b/R/TOXSWA_cwa.R
index 8de18a4..2985e1f 100644
--- a/R/TOXSWA_cwa.R
+++ b/R/TOXSWA_cwa.R
@@ -97,14 +97,14 @@ plot.TOXSWA_cwa <- function(x, time_column = c("datetime", "t", "t_firstjan", "t
cwa_column = ifelse(total, "cwa_tot_mug_per_L", "cwa_mug_per_L")
lct <- Sys.getlocale("LC_TIME")
tmp <- Sys.setlocale("LC_TIME", LC_TIME)
- if (xlab == "default") {
+ if (identical(xlab, "default")) {
xlab = switch(time_column,
datetime = "Time",
t = "Time [days]",
t_firstjan = "Time since first of January [days]",
t_rel_to_max = "Time relative to maximum concentration [days]")
}
- if (ylab == "default") {
+ if (identical(ylab, "default")) {
ylab = paste( ifelse(total, "Total concentration", "Concentration"), "[\u03bcg/L]")
}
if (add) {

Contact - Imprint