comparison extract_ipm_date_interval.R @ 5:87482a201699 draft

Uploaded

4:3741790740f3

# FIXME: currently custom date fields are free text, but
# 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"));

    temperature_data_frame = temperature_data_frame[start_date_row:end_date_row,];
    # Save the date interval data into an output file
    # 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...
}

5:87482a201699

# FIXME: currently custom date fields are free text, but
# 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(start_date);
# Validate 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.");
}
# Calculate the number of days in the date interval.
num_days = difftime(end_date, start_date, units=c("days"));

    temperature_data_frame = temperature_data_frame[start_date_row:end_date_row,];
    # Save the date interval data into an output file
    # 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 datE interval plots...
}