Mercurial > repos > greg > extract_ipm_date_interval
changeset 2:9c5a4d07edb8 draft
Uploaded
| author | greg |
|---|---|
| date | Wed, 01 Aug 2018 08:18:39 -0400 |
| parents | 0764ac25c68f |
| children | 3126def1a8e9 |
| files | utils.R |
| diffstat | 1 files changed, 8 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/utils.R Tue Jul 31 14:44:09 2018 -0400 +++ b/utils.R Wed Aug 01 08:18:39 2018 -0400 @@ -15,6 +15,11 @@ return(file_path); } +get_year_from_date = function(date_str) { + date_str_items = strsplit(date_str, "-")[[1]]; + return (date_str_items[1]); +} + get_life_stage_index = function(life_stage, life_stage_nymph=NULL, life_stage_adult=NULL) { # Name collection elements so that they # are displayed in logical order. @@ -94,14 +99,14 @@ } } -get_x_axis_ticks_and_labels = function(temperature_data_frame, prepend_end_doy_norm, append_start_doy_norm, date_interval=FALSE) { +get_x_axis_ticks_and_labels = function(temperature_data_frame, prepend_end_doy_norm=NULL, append_start_doy_norm=NULL, date_interval=FALSE) { # Generate a list of ticks and labels for plotting the x axis. - if (prepend_end_doy_norm > 0) { + if (!is.null(prepend_end_doy_norm) & prepend_end_doy_norm > 0) { prepend_end_norm_row = which(temperature_data_frame$DOY==prepend_end_doy_norm); } else { prepend_end_norm_row = 0; } - if (append_start_doy_norm > 0) { + if (!is.null(append_start_doy_norm) & append_start_doy_norm > 0) { append_start_norm_row = which(temperature_data_frame$DOY==append_start_doy_norm); } else { append_start_norm_row = 0;