# HG changeset patch
# User greg
# Date 1533823569 14400
# Node ID aad04f404793df9ee5c9814a5c42c3766fc7cfcd
# Parent  fff2e4833e8f5d08ad22978baba898eb876db757
Uploaded

diff -r fff2e4833e8f -r aad04f404793 extract_ipm_date_interval.R
--- a/extract_ipm_date_interval.R	Thu Aug 09 10:06:01 2018 -0400
+++ b/extract_ipm_date_interval.R	Thu Aug 09 10:06:09 2018 -0400
@@ -245,7 +245,7 @@
 # Validate end_date.
 end_date = validate_date(end_date);
 if (start_date >= end_date) {
-    stop_err("The start date must be between 1 and 50 days before the end date when setting date intervals for plots.");
+    stop_err("The start date must be between 1 and 50 days before the end date.\n");
 }
 # Calculate the number of days in the date interval.
 num_days = difftime(end_date, start_date, units=c("days"));
@@ -268,6 +268,9 @@
     temperature_data_frame = get_new_temperature_data_frame(input_data_file);
     start_date_row = which(temperature_data_frame$DATE==start_date);
     end_date_row = which(temperature_data_frame$DATE==end_date);
+    if (length(start_date_row)==0 | length(end_date_row)==0) {
+        stop_err("Invalid date interval, make sure the start and end dates are both contained within the selected input data files.\n");
+    }
     # Extract the date interval.
     temperature_data_frame = temperature_data_frame[start_date_row:end_date_row,];
     # Save the date interval data into an output file