tests/testthat/test-comerciobr_dados_produtos.R

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

test_that("dados de produtos exportados estão corretos", {

  ano_final <- barao::comerciobr_get_ulimoano()-1
  ano_inicial <- ano_final

  result <- paste0("http://api.comexstat.mdic.gov.br/general?filter=%7B%22yearStart%22:%22", ano_inicial,
                   "%22,%22yearEnd%22:%22", ano_final,
                   "%22,%22typeForm%22:1,%22typeOrder%22:1,%22filterList%22:[{%22id%22:%22noPaispt%22,%22text%22:%22Pa%C3%ADs%22,%22route%22:%22/pt/location/countries%22,%22type%22:%221%22,%22group%22:%22gerais%22,%22groupText%22:%22Gerais%22,%22hint%22:%22fieldsForm.general.noPais.description%22,%22placeholder%22:%22Pa%C3%ADses%22}],%22filterArray%22:[{%22item%22:[%22249%22],%22idInput%22:%22noPaispt%22}],%22rangeFilter%22:[],%22detailDatabase%22:[{%22id%22:%22noPaispt%22,%22text%22:%22Pa%C3%ADs%22},{%22id%22:%22noSh4pt%22,%22text%22:%22Posi%C3%A7%C3%A3o%20(SH4)%22,%22parentId%22:%22coSh4%22,%22parent%22:%22Codigo%20SH4%22}],%22monthDetail%22:false,%22metricFOB%22:true,%22metricKG%22:false,%22metricStatistic%22:false,%22monthStart%22:%2201%22,%22monthEnd%22:%2212%22,%22formQueue%22:%22general%22,%22langDefault%22:%22pt%22,%22monthStartName%22:%22Janeiro%22,%22monthEndName%22:%22Dezembro%22}")

  teste <- httr::GET(result) %>%
    httr::content(as = "text") %>%
    jsonlite::fromJSON(simplifyDataFrame = T)

  max_produto <- teste[1] %>%
    tibble::as_tibble() %>%
    tidyr::unnest(cols = c(data)) %>%
    dplyr::arrange(desc(vlFob)) %>%
    dplyr::mutate(vlFob = as.numeric(vlFob)) %>%
    dplyr::filter(vlFob == max(vlFob)) %>%
    dplyr::pull(vlFob)

  expectativa <- barao::comerciobr_dados_produtos("Estados Unidos", "anual") %>%
    dplyr::ungroup() %>%
    dplyr::filter(co_ano == max(co_ano)) %>%
    dplyr::filter(path == "EXP") %>%
    dplyr::filter(value == max(value)) %>%
    dplyr::pull(value)

  expect_equal(expectativa, max_produto)
})