add row names

Author: jtrecenti

inst/relatorio/relatorio.docx

@@ -580,15 +580,15 @@ <h2 class="anchored" data-anchor-id="análise">Análise</h2>
 <table class="table table-sm table-striped">
 <caption>Tabela&nbsp;9: Quantidade de processos por vara</caption>
 <colgroup>
-<col style="width: 89%">
+<col style="width: 88%">
 <col style="width: 4%">
-<col style="width: 6%">
+<col style="width: 7%">
 </colgroup>
 <thead>
 <tr class="header">
-<th style="text-align: left;">vara</th>
-<th style="text-align: right;">n</th>
-<th style="text-align: right;">prop</th>
+<th style="text-align: left;">Faixa</th>
+<th style="text-align: right;">N</th>
+<th style="text-align: right;">%</th>
 </tr>
 </thead>
 <tbody>
@@ -612,6 +612,11 @@ <h2 class="anchored" data-anchor-id="análise">Análise</h2>
 <td style="text-align: right;">6</td>
 <td style="text-align: right;">1.8%</td>
 </tr>
+<tr class="odd">
+<td style="text-align: left;">Total</td>
+<td style="text-align: right;">326</td>
+<td style="text-align: right;">100.0%</td>
+</tr>
 </tbody>
 </table>
 </div>

inst/relatorio/relatorio.html

@@ -200,7 +200,8 @@ A @tbl-vara mostra a contagem de processos por vara. As varas empresariais do fo
 da_tidy |> 
   dplyr::count(vara, sort = TRUE) |> 
   dplyr::mutate(prop = formattable::percent(n/sum(n), 1)) |> 
-  knitr::kable()
+  janitor::adorn_totals() |> 
+  knitr::kable(col.names = c("Faixa", "N", "%"))
 ```
 
 A @fig-no-tempo mostra o volume de decisões ao longo do tempo, considerando como base a data de disponibilização das sentenças. É possível notar um aumento na quantidade de decisões nos anos de 2021 e 2022 (que ainda não acabou).