R/comerciobr_tabela_paises.R

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

#' Tabela de fluxo comercial por país
#'
#' @param pais um país
#' @param periodo "anual" ou "mensal"
#'
#' @export
comerciobr_tabela_paises <- function(pais, periodo) {

  if (periodo == "mensal") {

    frase <- paste0("Dados Agregados at\u00e9 ", barao::meses(barao::comerciobr_get_ultimomes()))
    df <- barao::comerciobr_dados_paises(pais, periodo) %>%
      dplyr::ungroup()
  }

  else {

    frase <- paste0("Dados Anuais")
    df <- barao::comerciobr_dados_paises(pais, periodo) %>%
      dplyr::ungroup() %>%
      dplyr::filter(co_ano <= max(co_ano)-1)

  }

  df <- df %>%
      dplyr::group_by(no_pais, path) %>%
      dplyr::arrange(dplyr::desc(co_ano), .by_group = T) %>%
      dplyr::mutate(pct_var = value/dplyr::lead(value)-1) %>%
      dplyr::mutate(pct_prop = (value/.data$total)) %>%
      dplyr::ungroup() %>%
      dplyr::filter(co_ano >= max(co_ano)-3) %>%
      dplyr::select(-c(rank, .data$total)) %>%
      dplyr::group_by(co_ano, path) %>%
      dplyr::arrange(dplyr::desc(value), .by_group = T) %>%
      dplyr::arrange(dplyr::desc(co_ano)) %>%
      dplyr::relocate(co_ano, path, no_pais, value, .data$pct_var, .data$pct_prop) %>%
      dplyr::mutate(dplyr::across(dplyr::starts_with("val"), scales::label_number_si(accuracy = 0.01))) %>%
      dplyr::mutate(dplyr::across(dplyr::starts_with("pct_") , scales::label_percent(decimal.mark = ",", accuracy = .01)))

  df %>%
    kableExtra::kbl(booktabs = T, col.names = c("Ano", "Dire\u00e7\u00e3o", "Pa\u00eds", "Valor", "Varia\u00e7\u00e3o", "Propor\u00e7\u00e3o")) %>%
    kableExtra::kable_styling(font_size = 7, full_width = T, latex_options = c("hold_position")) %>%
    kableExtra::column_spec(3, width = "20em") %>%
    kableExtra::collapse_rows(columns = 1:2, latex_hline = "full", valign = "top",
                              row_group_label_position = "stack", target = 2) %>%
    kableExtra::add_header_above(header = c(setNames(6,frase)), bold = T) %>%
    kableExtra::row_spec(which(df$no_pais == pais), bold = T) %>%
    kableExtra::column_spec(1:2, background = "white", color = "black")

}