From 921863f347cb3f6b4801c8fef4a84ab00a7807f6 Mon Sep 17 00:00:00 2001 From: Nicolau Manubens Date: Mon, 3 Oct 2016 15:59:12 +0200 Subject: [PATCH] Fixes in plot_timeseries.R --- inst/doc/plot_timeseries.R | 16 ++++------------ 1 file changed, 4 insertions(+), 12 deletions(-) diff --git a/inst/doc/plot_timeseries.R b/inst/doc/plot_timeseries.R index 40578f51..dc18d90e 100755 --- a/inst/doc/plot_timeseries.R +++ b/inst/doc/plot_timeseries.R @@ -100,18 +100,10 @@ if (file.exists(paste(savename, '.sav', sep = ''))) { NULL) } latbnd <- switch(var, 'tos' = c(-60, 65), 'prlr' = c(-60, 65), c(-90, 90)) - varname <- switch(var, 'siarea' = paste(var, pole, sep = ''), 'siextent' = paste(var, - pole, sep = ''), 'sivol' = paste(var, pole, sep = ''), - 'ohcsum0' = 'heatc', 'ohcsum23-46' = switch(vertnem, 'L42' = '0-315_heatc', - 'L46' = '0-322_heatc', - 'L75' = '0-271_heatc'), - 'ohcsum18-22' = switch(vertnem, 'L42' = '373-657_heatc', - 'L46' = '382-735_heatc', - 'L75' = '301-773_heatc'), - 'ohcsum0-17' = switch(vertnem, 'L42' = '800-5350_heatc', - 'L46' = '855-5875_heatc', - 'L75' = '857-5902_heatc'), - 'vsftmyz' = 'moc_40N55N_1-2km', var) + varname <- switch(var, 'siarea' = paste(var, tolower(pole), sep = ''), + 'siextent' = paste(var, tolower(pole), sep = ''), + 'sivol' = paste(var, tolower(pole), sep = ''), + var) if (is.na(match('b02p', lstexpid)) == TRUE) { lstload <- lstexpid } else { -- GitLab