tests/testthat/test-wb_apply_cell_styles.R

In flexlsx: Exporting 'flextable' to 'xlsx' Files

test_that("error if sheet is non-existant", {
  skip_if_not_installed("flextable")
  data("mtcars")

  ft <- flextable::flextable(mtcars)
  wb <- openxlsx2::wb_workbook()

  wb_add_flextable(
    wb = wb,
    ft = ft,
    sheet = "nonexistant",
    dims = "B4"
  ) |>
    expect_error()

  wb_apply_cell_styles(wb, "nonexistant", NULL) |>
    expect_error()
})

test_that("add fill", {
  skip_if_not_installed("flextable")
  data("mtcars")

  ft <- flextable::flextable(mtcars)
  wb <- openxlsx2::wb_workbook()$add_worksheet("fill")


  ft <- flextable::bg(ft,
    i = ~ am == 1,
    j = ~am,
    bg = "orange",
    part = "body"
  ) |>
    flextable::bg(
      i = ~ hp > 100,
      j = ~hp,
      bg = "red",
      part = "body"
    )


  wb <- wb_add_flextable(
    wb = wb,
    ft = ft,
    sheet = "fill",
    dims = "D5"
  )


  expect_true(wb$get_cell_style("fill", dims = "G6") !=
    wb$get_cell_style("fill", dims = "H6"))
  expect_true(wb$get_cell_style("fill", dims = "L6") !=
    wb$get_cell_style("fill", dims = "H6"))
  expect_true(wb$get_cell_style("fill", dims = "L6") !=
    wb$get_cell_style("fill", dims = "G6"))
})