# HG changeset patch
# User greg
# Date 1533125919 14400
# Node ID 9c5a4d07edb8d8c81bc403b727b52684b81e17f8
# Parent  0764ac25c68f8942451cef557c1856b388815b66
Uploaded

diff -r 0764ac25c68f -r 9c5a4d07edb8 utils.R
--- 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;