comparison extract_ipm_date_interval.R @ 9:fd41f452c9fe draft

Uploaded
author greg
date Wed, 01 Aug 2018 09:18:55 -0400
parents cf6a06a2346c
children c2eb16ef23c0
comparison
equal deleted inserted replaced
8:cf6a06a2346c 9:fd41f452c9fe
49 stop_err("Date intervals for plotting cannot exceed 50 days."); 49 stop_err("Date intervals for plotting cannot exceed 50 days.");
50 } 50 }
51 # Display the total number of days in the Galaxy history item blurb. 51 # Display the total number of days in the Galaxy history item blurb.
52 cat("Number of days in date interval: ", num_days, "\n"); 52 cat("Number of days in date interval: ", num_days, "\n");
53 53
54 input_files = list.files(path=input_dir, full.names=TRUE); 54 input_files = list.files(path=opt$input_dir, full.names=TRUE);
55 for(input_file in input_files) { 55 for(input_file in input_files) {
56 temperature_data_frame = get_new_temperature_data_frame(input_file); 56 temperature_data_frame = get_new_temperature_data_frame(input_file);
57 start_date_row = which(temperature_data_frame$DATE==start_date); 57 start_date_row = which(temperature_data_frame$DATE==start_date);
58 end_date_row = which(temperature_data_frame$DATE==end_date); 58 end_date_row = which(temperature_data_frame$DATE==end_date);
59 # Extract the date interval. 59 # Extract the date interval.