Regression output table after running regression loop

tidyverse
1 
states <- list(tx = tx, ca = ca, wi = wi)
loss_leader_products <- c("FOODS_1_172",  "FOODS_1_217", "FOODS_1_219", 
              "FOODS_2_285", "FOODS_2_294", "FOODS_3_148", 
              "HOBBIES_1_032", "HOBBIES_1_312", 
              "HOBBIES_1_417", "HOUSEHOLD_1_147")

filtered_loss_leader <- map(loss_leader_products, function(pid) {
  map(states, ~ filter(.x, item_id == pid))
})
names(filtered_loss_leader) <- loss_leader_products

reg_sales_results <- map(filtered_loss_leader, function(ll_sales) {
  map(ll_sales, function(ll_df) {
    if (n_distinct(ll_df$sales) <= 1) {
      return(NULL)  # skip regression if price doesn't vary
    }
    feols(log(sales) ~ superbowl_d + easter_d + nba_d + independence_d + labor_d| store_id + year,
          data = ll_df,
          panel.id = ~panel_id + week_start,
          vcov = "DK")
  })
})
reg_sales_results

I have data for the same 10 products in stores in 3 states. I run a regression for each product in each state. How do I get a regression output table for word? I tried modelsummary but it didn't work

2

Can you give us a minimum working example (MWE ) or a reprex?

At the moment even the first line of your code does not work.

states <- list(tx = tx, ca = ca, wi = wi)

Possibly you meant this?

states <- list(tx = "tx", ca = "ca", wi = "wi")

EDIT
As an afterthought, can you point us to an example of the the type of output table you wouldlike to get?

3

I second @jrkrideau 's suggestion.
Also, are you writing a report in Rmarkdown or Quarto with the goal of generating a Word report containing your regression tables?