Error in `rodar_agregador(bd = pesquisas_teste, turno = 1)`: O pacote cmdstanr é necessário para rodar esta função.
i Instale-o com `install.packages('cmdstanr', repos = 'https://mc-stan.org/r-packages/')`.
i Ou consulte <https://mc-stan.org/cmdstanr/>.

test_that("rodar_agregador valida requisitos e argumentos", {
expect_error(rodar_agregador(bd = pesquisas_teste, turno = 1), "obrigat\u00f3rio")
expect_error(rodar_agregador(bd = pesquisas_teste, data_inicio = "01/01/2025", turno = 3, cenario = "Primeiro turno"), "definir o turno")
expect_error(rodar_agregador(bd = bd_2t, data_inicio = "01/01/2025", turno = 2, cenario = "Inexistente"), "Cen\u00e1rio inv\u00e1lido")
expect_error(rodar_agregador(bd = bd_2t, data_inicio = "01/01/2025", turno = 2, cenario = NULL), "obrigat\u00f3rio")
expect_error(rodar_agregador(bd = pesquisas_teste, data_inicio = "01/01/2025", turno = 1, modelo = "Modelo Fantasma"), "Modelo n\u00e3o encontrado")
test_that("rodar_agregador lida com configurações customizadas", {
# Mock do comportamento sem rodar Stan (interceptando antes da chamada do Stan)
# Se passarmos um config_agregador que não é uma lista completa, ele chama configurar_agregador
# Deve falhar ao tentar carregar o modelo Stan se cmdstanr não estiver configurado,
# mas aqui testamos se ele aceita os argumentos
res <- rodar_agregador(bd = pesquisas_teste,
test_that("rodar_agregador funciona para o modelo Naive (Smoke Test)", {
expect_named(res, c("nome_modelo", "votos_estimados", "vies_institutos", "modelo_bruto"))
test_that("rodar_agregador salva resultados corretamente", {
res <- rodar_agregador(bd = pesquisas_teste[pesquisas_teste$candidatura == "Lula", ],
# Quando salvar = TRUE, modelo_bruto deve ser convertido para dataframe

"rodar_agregador valida requisitos e argumentos"
"rodar_agregador lida com configurações customizadas"
"rodar_agregador funciona para o modelo Naive (Smoke Test)"

rodar_agregador valida requisitos e argumentos