R/fun_read_config.R

In pratikunterwegs/process-pattern: What the Package Does (One Line, Title Case)

#' Process config file for type and growth rate.
#'
#' @param path Where to find the config file.
#'
#' @return A list with the growth rate and type.
#' @export
read_config = function(path) {
  config_file = glue::glue("{path}/config.ini")
  config_file = readLines(config_file)
  
  type = config_file[grep("agents.forage", config_file)]
  type = ifelse(stringr::str_extract(type, "\\d{1}") == "1", "exploit", "interf")
  
  obligate = config_file[grep("agents.obligate", config_file)]
  type = ifelse(stringr::str_extract(obligate, "\\d{1}") == "1", "obligate", type)
  
  random = config_file[grep("mask", config_file)]
  random = stringr::str_extract(random, "\\d+")
  
  type = ifelse(random == "1", type, "random")
  
  growth = config_file[grep("item_growth", config_file)]
  growth = stringr::str_extract(growth, "0\\.\\d+")
  
  rep_ = stringr::str_extract(path, "(\\d{3})")
  
  c(
    growth = growth,
    type = type,
    rep_ = rep_
  )
}