tests/testthat/test-axis_logic.R

In encharter: Enhanced Office Open XML Charting for 'openxlsx2'

test_that("Chart: Date Axes and Axis Units", {
  chart <- Chart$new("lineChart")
  chart$add_series(
    name = "S1!$B$1", data = "S1!$B$2:$B$5"
  )

  # Date axis configuration
  chart$set_x_axis(
    major = 2, major_time = "months",
    minor = 1, minor_time = "months",
    format = "mmm-yy", label_pos = "low",
    grid_lines = "dotted", grid_color = "#707070", # test grid lines
    minor_grid_lines = "dotted", minor_grid_color = "#707070", # test grid lines
  )

  chart$set_x_title("Foo", font_size = 14, bold = TRUE)
  expect_warning(chart$set_x2_title("Bar", font_size = 14, bold = TRUE), "Secondary axis title ignored.")
  chart$set_y_title("Baz", font_size = 14, bold = TRUE)
  expect_warning(chart$set_y2_title("Bam", font_size = 14, bold = TRUE), "Secondary axis title ignored.")

  xml <- as.character(chart$render())

  expect_match(xml, "<c:majorUnit val=\"2\"/>")
  expect_match(xml, "<c:majorTimeUnit val=\"months\"/>")
  expect_match(xml, "<c:numFmt formatCode=\"mmm-yy\"")
  expect_match(xml, "<c:lblOffset val=\"100\"/>")

  wb <- openxlsx2::wb_workbook()$add_worksheet("S1")$add_data(x = mtcars)
  wb <- openxlsx2::wb_add_encharter(wb, dims = "A2:K10", graph = chart)

  chart$add_series(
    name = "S1!C$1", data = "S1!$C$2:$C$5", secondary = TRUE # "y"
  )
  chart$set_y2_title("Bam", font_size = 14, bold = TRUE)
  xml <- as.character(chart$render())

  chart$add_series(
    name = "S1!C$1", data = "S1!$C$2:$C$5", secondary = "x"
  )
  chart$set_x2_title("Bar", font_size = 14, bold = TRUE)

  wb <- openxlsx2::wb_workbook()$add_worksheet("S1")$add_data(x = mtcars)
  wb <- openxlsx2::wb_add_encharter(wb, graph = chart)
})

test_that("Chart: Combo charts and Secondary Axis", {
  chart <- Chart$new("barChart")
  # Primary
  chart$add_series(name = "B1", data = "dat!B2:B5", color = openxlsx2::wb_color("magenta"))
  # Secondary Area
  chart$add_series(name = "C1", data = "dat!C2:C5", type = "areaChart", secondary = TRUE)

  xml <- as.character(chart$render())

  # Check for two plot areas (primary and secondary)
  expect_match(xml, "<c:barChart>")
  expect_match(xml, "<c:areaChart>")
  # Check for secondary axis ID presence
  expect_match(xml, "<c:valAx>")

  wb <- openxlsx2::wb_workbook()$add_worksheet("dat")$add_data(x = mtcars)$
    add_encharter(graph = chart)
})

test_that("Chart: scaling", {
  chart <- Chart$new("scatterChart")
  chart$add_series(name = "dat!$A$1:$A$100", data = "dat!$B$1:$B$100")
  chart$set_x_axis(log_base = 10)
  chart$set_y_axis(min = -1)

  # Check for log scaling
  xml <- as.character(chart$render())
  expect_match(xml, "<c:logBase val=\"10\"/>")
  # CT_Scaling: logBase comes before orientation
  expect_match(xml, "<c:scaling><c:logBase val=\"10\"/><c:orientation")
  expect_match(xml, "<c:min val=\"-1\"/>")

  # Check for valid XML
  df <- data.frame(
    x = seq(1, 10000, by = 100),
    y = runif(100)
  )

  ## reverse axis order
  wb <- openxlsx2::wb_workbook()$add_worksheet("dat")$add_data(x = df)$
    add_encharter(graph = chart)

  chart <- Chart$new("scatterChart")
  chart$add_series(name = "dat!$A$1:$A$100", data = "dat!$B$1:$B$100")
  chart$set_x_axis(rev = TRUE)
  chart$set_y_axis(min = -1)

  # Check for log scaling
  xml <- as.character(chart$render())
  expect_match(xml, "c:orientation val=\"maxMin\"/>")

  # Check for valid XML
  df <- data.frame(
    x = seq(1, 10000, by = 100),
    y = runif(100)
  )
  wb <- openxlsx2::wb_workbook()$add_worksheet("dat")$add_data(x = df)$
    add_encharter(graph = chart)
})