Potential helper functions

[seth127]

Planning to use this issue to add snippets for potential helper functions to consider adding.

[seth127]

For seeing which options are specified in a given parse record

get_options_present <- function(record) {
  record$parse()
  purrr::map(record$values, function(x) {
    if(inherits(x, "nmrec_option")) {
      return(x[["name"]])
    } else {
      return(NULL)
    }
  }) %>% 
    purrr::compact() %>% 
    purrr::list_c(ptype = "character")
  
}

Update: This is actually really easy with the $get_options() helper, so maybe not needed

get_options_present2 <- function(record) {
  purrr::map_chr(record$get_options(), ~ .x[["name"]])
}