Exporta data.frames de resultados (corpus codificado, tabelas de frequencia,
metricas de confiabilidade) para CSV, LaTeX, Excel (.xlsx) ou RDS.
Pensada para facilitar a transicao entre o pipeline acR e a escrita
academica (tabelas em artigos) ou o compartilhamento de dados replicaveis.
Usage
ac_export(
x,
path = NULL,
format = NULL,
overwrite = TRUE,
latex_caption = NULL,
latex_label = NULL,
latex_digits = 3L,
excel_sheet = "acR",
verbose = TRUE
)Arguments
- x
data.frameou objetoac_irr. Dados a exportar.- path
character. Caminho do arquivo de saida, incluindo extensao (ex.:"resultados.csv","tabela1.tex","dados.xlsx"). SeNULL, o formato e inferido pelo argumentoformate o arquivo e salvo no diretorio de trabalho com nome"acR_export".- format
character. Formato de saida:"csv","latex","xlsx","rds". SeNULL(padrao), inferido pela extensao depath.- overwrite
logical. SeTRUE(padrao), sobrescreve arquivo existente. SeFALSE, lanca erro se o arquivo ja existir.- latex_caption
characterouNULL. Legenda da tabela LaTeX.- latex_label
characterouNULL. Label para\\ref{}no LaTeX. Ex.:"tab:resultados".- latex_digits
integer. Casas decimais para colunas numericas na saida LaTeX. Padrao:3.- excel_sheet
character. Nome da aba no arquivo Excel. Padrao:"acR".- verbose
logical. SeTRUE(padrao), confirma o caminho salvo.
Details
CSV
Usa utils::write.csv() com row.names = FALSE e encoding UTF-8.
Separador: virgula. Adequado para importacao em Stata, SPSS, Python e R.
LaTeX
Gera codigo LaTeX via knitr::kable() com format = "latex", empacotado
em ambiente table com \\centering, \\caption e \\label. Adicione
\\usepackage{booktabs} no preambulo do documento para melhor tipografia.
Excel
Usa writexl::write_xlsx() — sem dependencia de Java ou LibreOffice.
Cria arquivo .xlsx compativel com Excel 2007+, Google Sheets e
LibreOffice Calc.
RDS
Serializa o objeto R completo via base::saveRDS(). Preserva tipos,
atributos e classes (incluindo objetos ac_irr, corpus etc.).
Ideal para replicabilidade interna ao projeto.
Examples
resultados <- data.frame(
id_discurso = c("d1", "d2", "d3"),
nome_deputado = c("Dep. A", "Dep. B", "Dep. C"),
categoria = c("progressista", "conservador", "tecnocratico"),
confianca = c(0.94, 0.91, 0.87)
)
# Escrevemos em tempdir() para nao poluir o filesystem do usuario
out_csv <- file.path(tempdir(), "resultados.csv")
out_tex <- file.path(tempdir(), "resultados.tex")
out_rds <- file.path(tempdir(), "resultados.rds")
# CSV
ac_export(resultados, out_csv)
#> ✔ Exportado para /tmp/RtmpfTv5LA/resultados.csv (csv).
# LaTeX (para incluir em artigo)
ac_export(
resultados,
out_tex,
latex_caption = "Classificacao do tom dos discursos por LLM",
latex_label = "tab:tom_discursos"
)
#> ✔ Exportado para /tmp/RtmpfTv5LA/resultados.tex (latex).
# RDS (replicabilidade)
ac_export(resultados, out_rds)
#> ✔ Exportado para /tmp/RtmpfTv5LA/resultados.rds (rds).
# Excel (requer openxlsx ou writexl instalado)
if (requireNamespace("writexl", quietly = TRUE) ||
requireNamespace("openxlsx", quietly = TRUE)) {
out_xlsx <- file.path(tempdir(), "resultados.xlsx")
ac_export(resultados, out_xlsx, excel_sheet = "Classificacao")
}
#> ✔ Exportado para /tmp/RtmpfTv5LA/resultados.xlsx (xlsx).
# Objeto ac_irr (comparar codificacao humana vs. LLM)
gold <- data.frame(
id_discurso = c("d1", "d2", "d3"),
categoria = c("progressista", "conservador", "tecnocratico")
)
predicted <- data.frame(
id_discurso = c("d1", "d2", "d3"),
categoria = c("progressista", "conservador", "progressista")
)
irr_result <- ac_qual_irr(gold, predicted, verbose = FALSE)
ac_export(irr_result, file.path(tempdir(), "confiabilidade.csv"))
#> ✔ Exportado para /tmp/RtmpfTv5LA/confiabilidade.csv (csv).
