# 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