automate model runs cost.Rmd

## run this to automate the generation of the result files. Just modify the make up for the species once.

```{r}

library(gtools)

render_model = function(species_c1,
                        #species_c2,
                        species_c3, species_c4, species_c5) {
  rmarkdown::render(
    input = "C:/Users/kleigh/OneDrive/Documents/UCSB/quotabasket_model/4spec_auto_model_defaults_cost.Rmd", # What's the input file to render?
    params = list(species_c1=species_c1,
                  #species_c2=species_c2,
                  species_c3=species_c3, species_c4=species_c4, species_c5=species_c5
                  ), # What are the parameters?
    output_file = paste0("runs_", species_c1,
                         #species_c2,
                         species_c3, species_c4, species_c5
                         , "_mix .html") # What should I name the output file?
  )
}

render_model_ident = function(species_c1, #species_c2, 
                              species_c3, species_c4, species_c5) {
  rmarkdown::render(
    input = "C:/Users/kleigh/OneDrive/Documents/UCSB/quotabasket_model/4spec_model_identical_cost.Rmd", # What's the input file to render?
    params = list(species_c1=species_c1, #species_c2=species_c2, 
                  species_c3=species_c3, species_c4=species_c4,species_c5=species_c5
                  ), # What are the parameters?
    output_file = paste0("4spec_identruns_", species_c1, #species_c2, 
                         species_c3, species_c4, species_c5, "_mix .html") # What should I name the output file?
  )
}

species_c1 = 1
#species_c2 = 1
species_c3 = 1
species_c4 = 1
species_c5 = 2

species_c <- as.vector(c(species_c1,
                         #species_c2,
                         species_c3, species_c4, species_c5))

possible_scenarios <- permutations(n=4,r=4,species_c,set=FALSE)

 for (i in 1:nrow(uniqu_poss_scen)){
   
   render_model(uniqu_poss_scen[i,1], uniqu_poss_scen[i,2], uniqu_poss_scen[i,3], uniqu_poss_scen[i,4]
                #, uniqu_poss_scen[i,5]
                )
   
}

uniqu_poss_scen <- possible_scenarios %>% 
  unique()

library(tidyverse)

```