Use params in YAML header

Placeholder issue for now; here's what I've got so far:

logical_handler = function(x) {
  result = ifelse(x, "true", "false")
  class(result) = "verbatim"
  return(result)
}

all_spp = species_names$species[species_names$is_salmon]
keep_spp = c("chinook", "chum")
params_list = lapply(1:length(all_spp), function(i) list(value = all_spp[i] %in% keep_spp))
names(params_list) = all_spp

params_list = append(params_list,
                     list(nonsalmon = list(value = FALSE)),
                     list(do_drift = list(value = TRUE)),
                     list(do_set = list(value = FALSE))
                     )

yaml_in = list(
  output = "KuskoHarvEst:::pdf_report",
  params = list(params_list)
)

yaml_out = yaml::as.yaml(yaml_in, indent.mapping.sequence = TRUE, handlers = list(logical = logical_handler))

yaml_out = paste("---\n", yaml_out, "---\n", sep = "")
cat(yaml_out, sep = "\n")

bstaton1 / KuskoHarvEst

Use params in YAML header #207