Mercurial > repos > greg > extract_ipm_date_interval
changeset 3:3126def1a8e9 draft
Uploaded
| author | greg |
|---|---|
| date | Wed, 01 Aug 2018 08:18:47 -0400 |
| parents | 9c5a4d07edb8 |
| children | 3741790740f3 |
| files | extract_ipm_date_interval.R |
| diffstat | 1 files changed, 5 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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