How to use modelsummary with rddpackage?

Question

I am trying to input my rdds model from rdd package into model summary and I can't. This is my code:

rdd_model_names <- paste0("model", 1:8)
  rdd_model <- list(ll1_covs, ll1_no_covs, ll2_covs, ll2_no_covs, ll3_covs, ll3_no_covs, ll4_covs, ll4_no_covs)
 
  tidy.RD <- function(rdd_model, nm) {
  s <- summary(rdd_model)
  df <- data.frame(s$coefficients[1, c(1:4,6), drop = FALSE])
  print(class(df))
  df$term <- nm
  df
}
 rd_outputs <- lapply(1:8, function(i) tidy.RD(rdd_model[[i]], rdd_model_names[i]) ) %>% bind_rows()     
 rd_outputs
    
rdd_table <- modelsummary(rd_outputs, statistic = "p.value") %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  add_header_above(c(" "= 2, "Female Share" = 2, "Pre-natal care"= 2, "Daycare enroll" = 2, "Pre-scool enroll" = 2))  ```


""The error that I get is:
Warning in get_gof(models[[j]], vcov_type[[i]], ...) :
  `modelsummary could not extract goodness-of-fit statistics from a model
of class "data.frame". The package tried a sequence of 2 helper functions....""

Answer 1

Look at the error again:

*Assertion failed. One of the following must apply:
    checkmate::check_character(estimate): Must have length 1, but has length 3
    checkmate::check_character(estimate): Must have length 8, but has length 3*

This refers to the estimate argument, and it says that it should be either of length 1 or of length 8. This is because there are 8 models in your list. So either you supply only one value for estimate, or you supply 1 value per model. You supplied 3, which does not fulfill either of the conditions.