comparison extract_ipm_date_interval.R @ 3:3126def1a8e9 draft

Uploaded

2:9c5a4d07edb8

suppressPackageStartupMessages(library("data.table"))
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")
)

parser <- OptionParser(usage="%prog [options] file", option_list=option_list);
args <- parse_args(parser, positional_arguments=TRUE);
opt <- args$options;

year = get_year_from_date(start_date);
# Get the DOY for start_date and end_date.
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 = c(unlist(ticks_and_labels[1]));
date_labels = c(unlist(ticks_and_labels[2]));
# All latitude values are the same, so get the value
# for plots from the first row.
latitude = temperature_data_frame$LATITUDE[1];

3:3126def1a8e9

suppressPackageStartupMessages(library("data.table"))
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("--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);
args <- parse_args(parser, positional_arguments=TRUE);
opt <- args$options;

year = get_year_from_date(start_date);
# Get the DOY for start_date and end_date.
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, 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
# for plots from the first row.
latitude = temperature_data_frame$LATITUDE[1];