Mercurial > repos > greg > extract_ipm_date_interval
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. |