comparison extract_ipm_date_interval.R @ 8:cf6a06a2346c draft

Uploaded

7:869e7d06bdf3

args <- parse_args(parser, positional_arguments=TRUE);
opt <- args$options;

get_new_temperature_data_frame = function(input_file) {
    temperature_data_frame = read.csv(file=input_file, header=T, strip.white=TRUE, stringsAsFactors=FALSE, sep=",");
    colnames(temperature_data_frame) = c("LATITUDE", "LONGITUDE", "DATE", "DOY", "TMIN", "TMAX");
    return(temperature_data_frame);
}

# Import the shared utility functions.
utils_path <- paste(opt$script_dir, "utils.R", sep="/");

        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];
    # 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...
}

8:cf6a06a2346c

args <- parse_args(parser, positional_arguments=TRUE);
opt <- args$options;

get_new_temperature_data_frame = function(input_file) {
    temperature_data_frame = read.csv(file=input_file, header=T, strip.white=TRUE, stringsAsFactors=FALSE, sep=",");
    return(temperature_data_frame);
}

# Import the shared utility functions.
utils_path <- paste(opt$script_dir, "utils.R", sep="/");

        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];
    # Save the date interval data into an output file
    # named the same as the input.
    file_path = paste("output_data_dir", basename(input_file), sep="/");
    write.csv(temperature_data_frame, file=file_path, row.names=F);
    # TODO: Save the date interval plots...
}