# HG changeset patch
# User greg
# Date 1533125927 14400
# Node ID 3126def1a8e954e0e715890500c4e010c989ea53
# Parent  9c5a4d07edb8d8c81bc403b727b52684b81e17f8
Uploaded

diff -r 9c5a4d07edb8 -r 3126def1a8e9 extract_ipm_date_interval.R
--- a/extract_ipm_date_interval.R	Wed Aug 01 08:18:39 2018 -0400
+++ b/extract_ipm_date_interval.R	Wed Aug 01 08:18:47 2018 -0400
@@ -4,9 +4,10 @@
 suppressPackageStartupMessages(library("optparse"))
 
 option_list <- list(
-    make_option(c("--input_dir"), action="store", dest="input_dir", help="Directory containing .csv outputs from insect_phenology_model"),
-    make_option(c("--start_date"), action="store", dest="start_date", default=NULL, help="Start date for custom date interval"),
-    make_option(c("--script_dir"), action="store", dest="script_dir", help="R script source directory")
+            make_option(c("--input_dir"), action="store", dest="input_dir", help="Directory containing .csv outputs from insect_phenology_model"),
+            make_option(c("--end_date"), action="store", dest="end_date", help="End date for date interval"),
+            make_option(c("--start_date"), action="store", dest="start_date", help="Start date for date interval"),
+            make_option(c("--script_dir"), action="store", dest="script_dir", help="R script source directory")
 )
 
 parser <- OptionParser(usage="%prog [options] file", option_list=option_list);
@@ -55,7 +56,7 @@
 start_date_doy = as.integer(strftime(start_date, format="%j"));
 end_date_doy = as.integer(strftime(end_date, format="%j"));
 # Get the ticks date labels for plots.
-ticks_and_labels = get_x_axis_ticks_and_labels(temperature_data_frame, prepend_end_doy_norm, append_start_doy_norm, date_interval=TRUE);
+ticks_and_labels = get_x_axis_ticks_and_labels(temperature_data_frame, date_interval=TRUE);
 ticks = c(unlist(ticks_and_labels[1]));
 date_labels = c(unlist(ticks_and_labels[2]));
 # All latitude values are the same, so get the value