tests/testthat/test-hgch-treemap.R

In randommonkey/hgchmagic: hgchmagic is a wrapper for hichcharter R package.

test_that("Treemap", {

  data <- ggplot2::diamonds
  data <- dsdataprep::aggregation_data(data = data,
                                       agg = "sum",
                                       group_var = "cut",
                                       to_agg = "price")

  ops <- list(title = "title",
              subtitle = "subtitle",
              caption = "caption",
              hor_title = "Categorias",
              ver_title = "Numeros")
  h_treemap <- hgch_treemap(data, var_cat = "cut", var_num = "price", opts =  ops)

  expect_equal(h_treemap$x$hc_opts$series[[1]]$type, "treemap")
  hgch_treemap(data, var_cat = "cut", var_num = "price")

  data <- ggplot2::diamonds |>
    dplyr::select(cut, dplyr::everything())

  h_treemap_cat <- hgch_treemap_Cat(data)
  expect_equal(h_treemap_cat$x$hc_opts$series[[1]]$type, "treemap")

  h_treemap_cat_num <- hgch_treemap_CatNum(data,
                                           percentage = TRUE,
                                           data_labels_show = T,
                                           data_labels_template = "{point.name} {point.value}%")
  expect_equal(h_treemap_cat_num$x$hc_opts$series[[1]]$type, "treemap")

  data <- ggplot2::diamonds
  data <- dsdataprep::aggregation_data(data = data,
                                       agg = "sum",
                                       group_var = c("cut", "clarity"),
                                       to_agg = "price")

  h <- hgch_treemap(data, var_cat = c("cut", "clarity"), var_num = "price")

  expect_true(all(class(h) %in% c("highchart", "htmlwidget")))


  h <- hgch_treemap_CatCatNum(data)

  expect_true(all(class(h) %in% c("highchart", "htmlwidget")))


  data <- ggplot2::diamonds |>
    dplyr::select(cut, clarity)
  h <- hgch_treemap_CatCat(data)

  expect_true(all(class(h) %in% c("highchart", "htmlwidget")))

  data <- ggplot2::diamonds |>
    dplyr::select(cut, clarity, depth)
  h <- hgch_treemap_CatCatNum(data)

  expect_true(all(class(h) %in% c("highchart", "htmlwidget")))
  hgch_treemap_CatCatNum(data, percentage = TRUE,
                      data_labels_template = "{point.name} {point.value}%")

 })