R/extract-fixed.R

In njtierney/yahtsee: Yet Another Hierachical Time Series Extension and Expansion

extract_fixed <- function(formula) {
  formula_terms <- stats::terms(formula, specials = "hts")
  which_hts <- attr(formula_terms, "specials")$hts
  which_response <- attr(formula_terms, "response")
  which_hts_response <- c(which_hts, which_response)
  fixed_terms <- rownames(attr(formula_terms, "factors"))[-which_hts_response]
  expr_fixed_terms <- rlang::syms(fixed_terms)
  expr_add(expr_fixed_terms)
}