tests/testthat/test-hgch_pie.R

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

test_that("Pie", {
  data <- ggplot2::diamonds
  data <- dsdataprep::aggregation_data(data = data,
                                       agg = "sum",
                                       group_var = "cut",
                                       to_agg = "price")
  h_pie <- hgch_pie(data = data, var_cat = "cut", var_num = "price")
  expect_equal(h_pie$x$hc_opts$chart$type, "pie")


  data1 <- data.frame(name = c("A", "B", "C"), y = c(10, 20, 30))
  data2 <- data.frame(name = c("D", "E", "F"), y = c(15, 25, 35))
  data3 <- data.frame(name = c("G", "H", "I"), y = c(18, 22, 28))

  # Create Highcharts pie charts
  h <- hgch_pie_Cat(data1 )
  expect_true(all(class(h) %in% c("highchart", "htmlwidget")))

  h <- hgch_pie_CatNum(data2)
  expect_true(all(class(h) %in% c("highchart", "htmlwidget")))

  h <- hgch_pie(data3, var_cat = "name", var_num = "y" )
  expect_true(all(class(h) %in% c("highchart", "htmlwidget")))

  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",
              bar_orientation = "hor")
  h <- hgch_pie(data, var_cat = "cut", var_num = "price", opts =  ops)
  expect_true(all(class(h) %in% c("highchart", "htmlwidget")))


  # test theme (subtitles)

  test_theme <- list(
    theme = list(
      palette_colors = "#ffa92a",
      subtitle_align = "center",
      subtitle_family = "Roboto",
      subtitle_size = 15,
      subtitle_color = "#3b83b8",
      subtitle_weight = 700
    )
  )

  h <- hgch_pie(data,
           var_cat = "cut",
           var_num = "price",
           opts = test_theme,
           subtitle = "test subtitle",
           title = "test title")
  expect_true(all(class(h) %in% c("highchart", "htmlwidget")))

})