auto tab_spanner, when variables name like this group_name.var_name

[cvaldezerea]

auto_span <- function(gtable) {
  names_gtable <- names(gtable$`_data`)
  names_gtable_ <- tibble::tibble(names = names_gtable) %>%
    dplyr::mutate(
     label = stringr::str_extract(string = names,pattern = ".*?\\."),
     name_new = stringr::str_remove(string = names,pattern =".*?\\."),
     label = stringr::str_remove(string = label,pattern = "\\."),
     cols = dplyr::row_number()
    ) %>%
    dplyr::mutate(
      label = toupper(stringr::str_replace_all(string = label,pattern = "_",replacement = " ")),
      name_new = toupper(stringr::str_replace_all(string = name_new,pattern = "_",replacement = " "))
    )
  label_seq <- as.character(na.omit(unique(names_gtable_$label)))
  new_names <- setNames(names_gtable_$name_new, names_gtable_$names)
  
  if(length(label_seq) > 0){
    for(i in label_seq){
      gtable <- gtable %>%
        gt::tab_spanner(
          label = i,
          columns = as.integer(na.omit(names_gtable_$cols[names_gtable_$label == i]))
        )
    }
    gtable <- gtable %>%
      gt::cols_label(!!!new_names)
  }
  return(gtable)
}

[cvaldezerea]

i know it needs optimization, but i guess is something your should consider