[R-br] knitr::kable() para pdf como aumentar o tamanho da fonte do caption?

[Paulo Eduardo de Mesquita]

Olá pessoal,

Paz e bem,

O arquivo Rmd que segue anexo (e abaixo); produz um documento no formato
pdf que contém a tabela exemplo ilustrada abaixo.

Eu utilizei um template do pacote "rticles" que possui uma formatação
esteticamente agradável.

[image: T1.png]
Contudo, o tamanho da fonte do caption da tabela é menor do que o tamanho
da fonte no corpo da tabela o que, a meu ver, quebra a harmonia do
documento e gera um desconforto cognitivo apreciável.

Eu não sei onde é definido o tamanho da fonte do caption, talvez no
template que eu utilizei (arquivo csl também segue anexo).  Apesar de ter
pesquisado bastante, não consegui encontrar solução que me permitisse
realizar dois ajustes: (1) Trocar o "Table 1" por "Tabela 1" e aumentar o
tamanho da fonte do caption.

Agradeço as orientações que vocês possam me passar.

Muito obrigado.

-- 

Paulo Eduardo de Mesquita

Disciplina de Infectologia - Faculdade de Medicina  Universidade do Oeste
Paulista Presidente Prudente - São Paulo - Brasil

telefone: 5518 97718261


---
title: Planetary Statistics
author:
  - name: Alice Anonymous
    email: alice em example.com
    affiliation: Some Institute of Technology
    footnote: 1
  - name: Bob Security
    email: bob em example.com
    affiliation: Another University
address:
  - code: Some Institute of Technology
    address: Department, Street, City, State, Zip
  - code: Another University
    address: Department, Street, City, State, Zip
footnote:
  - code: 1
    text: "Corresponding Author"
  - code: 2
    text: "Equal contribution"
journal: "An awesome journal"
date: "`r Sys.Date()`"
csl: elsevier-harvard.csl
output: rticles::elsevier_article
geometry: "left=3cm,right=2cm,top=2cm,bottom=2cm"
---

```{r 1, include = TRUE, message=FALSE, warning=FALSE}
require(dplyr)
require(knitr)
require(kableExtra)
require(rticles)

Mercury <- c(57900000, 4878, 1416, 88, 0.38, 100, 0)
Venus <- c(108160000, 12104, 5832, 224, 0.9, 480, 0)
Earth <- c(149600000, 12756, 24, 365, 1, 14, 1)
Mars <- c(227936640, 6794, 24, 687, 0.38, -63, 2)
Jupiter <- c(778369000, 142984, 10, 4380, 2.64, -130, 79)
Saturn <- c(1427034000, 120536, 11, 10585, 1.16, -130, 62)
Uranus <- c(2870658186, 51118, 17, 30660, 1.11, -200, 27)
Neptune <- c(4496976000, 49532, 16, 60225, 1.21, -200, 14)

df <- rbind(Mercury, Venus, Earth, Mars, Jupiter, Saturn, Uranus, Neptune)

colnames(df) <- c("DFS",
"Diameter","Day","Year","Gravity","Temperature","Moons")

kable(df, caption = "Planetary Statistics.",
            booktabs = T, linesep = "", align = "lcccccc", format =
"latex") %>%
kable_styling(bootstrap_options = "condensed", latex_options = "striped",
              stripe_color = "#D9D8D8") %>%
kable_styling(font_size = 10) %>%
kable_styling(latex_options = "HOLD_position") %>%
footnote(alphabet = "https://www.bobthealien.co.uk/solarsystem/table.htm",
         alphabet_title = "Source:", footnote_as_chunk = T) %>%
footnote(alphabet = "average temperature in oC",
         alphabet_title = "Temperature:", footnote_as_chunk = T) %>%
footnote(alphabet = "ratio to Earth's gravity",
         alphabet_title = "Gravity:", footnote_as_chunk = T) %>%
footnote(alphabet = "time to complete a full rotation around the sun in
days",
         alphabet_title = "Year:", footnote_as_chunk = T) %>%
footnote(alphabet = "time to complete a full rotation over its axis in
hours",
         alphabet_title = "Day:", footnote_as_chunk = T) %>%
footnote(alphabet = "in km",
         alphabet_title = "Diameter:", footnote_as_chunk = T) %>%
footnote(alphabet = "distance from the sun in km",
         alphabet_title = "DFS:",  footnote_as_chunk = T)
```
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20200207/e4e356ca/attachment.html>
-------------- Próxima Parte ----------
Um anexo não-texto foi limpo...
Nome: T1.png
Tipo: image/png
Tamanho: 49206 bytes
Descrição: não disponível
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20200207/e4e356ca/attachment.png>
-------------- Próxima Parte ----------
Um anexo não-texto foi limpo...
Nome: elsevier-harvard.csl
Tipo: application/octet-stream
Tamanho: 8089 bytes
Descrição: não disponível
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20200207/e4e356ca/attachment.obj>
-------------- Próxima Parte ----------
Um anexo não-texto foi limpo...
Nome: Planetary_statistics.Rmd
Tipo: application/octet-stream
Tamanho: 2723 bytes
Descrição: não disponível
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20200207/e4e356ca/attachment-0001.obj>