Skip to contents

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.frame ou objeto ac_irr. Dados a exportar.

path

character. Caminho do arquivo de saida, incluindo extensao (ex.: "resultados.csv", "tabela1.tex", "dados.xlsx"). Se NULL, o formato e inferido pelo argumento format e o arquivo e salvo no diretorio de trabalho com nome "acR_export".

format

character. Formato de saida: "csv", "latex", "xlsx", "rds". Se NULL (padrao), inferido pela extensao de path.

overwrite

logical. Se TRUE (padrao), sobrescreve arquivo existente. Se FALSE, lanca erro se o arquivo ja existir.

latex_caption

character ou NULL. Legenda da tabela LaTeX.

latex_label

character ou NULL. 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. Se TRUE (padrao), confirma o caminho salvo.

Value

Invisivel: o caminho do arquivo salvo (character).

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).