diff extract_ipm_date_interval.R @ 5:87482a201699 draft

Uploaded

--- a/extract_ipm_date_interval.R	Wed Aug 01 08:21:56 2018 -0400
+++ b/extract_ipm_date_interval.R	Wed Aug 01 08:25:22 2018 -0400
@@ -28,11 +28,13 @@
 # Galaxy should soon include support for a date selector
 # at which point this tool should be enhanced to use it.
 # Validate start_date.
+start_date = format(opt$start_date);
+end_date = format(opt$end_date);
 
 # Calaculate the number of days in the date interval.
-start_date = validate_date(format(opt$start_date));
+start_date = validate_date(start_date);
 # Validate end_date.
-end_date = validate_date(format(opt$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.");
 }
@@ -74,5 +76,5 @@
     # named the same as the input.
     file_path = paste("output_data_dir", input_file, sep="/");
     write.csv(temperature_data_frame, file=file_path, row.names=F);
-    # TODO: Save the dat interval plots...
+    # TODO: Save the datE interval plots...
 }