R/relatorio_brasil_pais.R

In SCAEC/Barao: Relações Internacionais Do Brasil

#' Relatório de relações bilaterais comerciais Brasil-país
#'
#' @param pais um país
#'
#' @export

relatorio_brasil_pais <- function(pais) {
  rmarkdown::render(system.file("rmd", "comerciobr_report_pais.Rmd", package = "barao"),
                    params = list(
                      title = paste0("Brasil-", pais, " , Dados Comerciais"),
                      pais = pais
                    ),
                    # intermediates_dir = "temp",
                    output_dir = here::here("data/relatorios_comerciobr"),
                    output_file = paste0("comerciobr_", pais))
}