comparison extract_ipm_date_interval.R @ 4:3741790740f3 draft

Uploaded

3:3126def1a8e9

# Galaxy should soon include support for a date selector
# at which point this tool should be enhanced to use it.
# Validate start_date.

# Calaculate the number of days in the date interval.
start_date = validate_date(opt$start_date);
# Validate end_date.
end_date = validate_date(opt$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.");
}
# Calculate the number of days in the date interval.
num_days = difftime(end_date, start_date, units=c("days"));

4:3741790740f3

# Galaxy should soon include support for a date selector
# at which point this tool should be enhanced to use it.
# Validate start_date.

# Calaculate the number of days in the date interval.
start_date = validate_date(format(opt$start_date));
# Validate end_date.
end_date = validate_date(format(opt$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.");
}
# Calculate the number of days in the date interval.
num_days = difftime(end_date, start_date, units=c("days"));