Closed pablotis closed 1 year ago
estetica_gt <- function(base = data, alineacion = "left",negrita = "bold",ancho = 600,tamaño_fuente = 10,alto_fila = 1) { base %>% tab_options(table.align = alineacion, row_group.font.weight = negrita, table.width = ancho, table.font.size = tamaño_fuente, data_row.padding = px(alto_fila)) }
creado por @eliansoutu en #24
Primer boceto: