Fixed bug in the generation of dated sequence

Author: ryanrbart

R/generate_input_files.R

@@ -10,6 +10,7 @@ generate_input_files <- function(input_rhessys,
                                  input_hdr_list,
                                  input_clim_base_list,
                                  input_tec_data,
+                                 input_dated_seq_list,
                                  option_sets_all,
                                  option_sets_def_par,
                                  option_sets_par,
@@ -108,6 +109,11 @@ generate_input_files <- function(input_rhessys,
       world_hdr_out <- rbind(world_hdr_out, hdr_fire_comp)
     }
 
+    if (is.null(input_hdr_list$spinup_def)==FALSE){
+      hdr_spinup_comp <- make_hdr_file(master_table=option_sets_hdr[yy,], path_initial=input_hdr_list$spinup_def, num_files="num_spinup_default_files", default_file="spinup_default_file")
+      world_hdr_out <- rbind(world_hdr_out, hdr_spinup_comp)
+    }
+
     if (is.null(input_hdr_list$base_stations)==FALSE){
       hdr_base_stations_comp <- make_hdr_file(master_table=option_sets_hdr[yy,], path_initial=input_hdr_list$base_stations, num_files="num_base_stations_files", default_file="base_stations_file")
       world_hdr_out <- rbind(world_hdr_out, hdr_base_stations_comp)

R/run_rhessys.R

@@ -44,6 +44,7 @@ run_rhessys <- function(parameter_method = c("all_combinations", "lhc", "monte_c
                        input_hdr_list = input_hdr_list,
                        input_clim_base_list = input_clim_base_list,
                        input_tec_data = input_tec_data,
+                       input_dated_seq_list = input_dated_seq_list,
                        option_sets_all = option_sets$option_sets_all,
                        option_sets_def_par = option_sets$option_sets_def_par,
                        option_sets_par = option_sets$option_sets_par,