Mercurial > repos > greg > extract_ipm_date_interval
changeset 3:8b068f78e7fd draft
Uploaded
author | greg |
---|---|
date | Thu, 09 Aug 2018 10:06:51 -0400 (2018-08-09) |
parents | b03291d5a842 |
children | 2c517a58544c |
files | extract_ipm_date_interval.R |
diffstat | 1 files changed, 4 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/extract_ipm_date_interval.R Thu Aug 09 10:06:44 2018 -0400 +++ b/extract_ipm_date_interval.R Thu Aug 09 10:06:51 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