type "topN" and "bottomN" not working as expected in openxlsx::conditionalFormatting

[jw388743]

Describe the bug See title

To Reproduce

R version 4.2.1

openxlsx version: 4.2.5

wb <- openxlsx::createWorkbook()

sheetNms <- c(
  "topN",
  "bottomN",
  "topPercent",
  "bottomPercent"
)

## Add Sheets
purrr::walk(sheetNms, ~ openxlsx::addWorksheet(wb, .x))

## Write Data 
purrr::walk(sheetNms, ~ openxlsx::writeData(wb, .x, mtcars))

## Add styles 
purrr::pwalk(
  list(
    sheetNms,
    1:4,
    c("topN", "bottomN", "topN", "bottomN"),
    c(FALSE, FALSE, TRUE, TRUE),
    c(5, 10, 15, 20)
  ),
  function(sheetNm, .col, fmtType, pct, rnk) {
    openxlsx::conditionalFormatting(
      wb,
      ## sheet nms same as fmtType
      sheetNm,
      cols = .col,
      ## all rows but colnames 
      rows = 2:(nrow(mtcars) + 1),
      type = fmtType,
      percent = pct,
      rank = rnk,
      style = openxlsx::createStyle(fontColour = "black",
                                    bgFill = "yellow")
      )
  }
)

openxlsx::saveWorkbook(wb, "openxlsx cntlFmormat Bug.xlsx")

Expected behavior

• "topN" sheet: top 5 observations in col 1 should be highlighted - whole col is highlighted
• "bottomN" sheet: bottom 10 observations in col 2 should be highlighted - whole col is highlighted
• "topPercent" sheet: top 15% of observations in col 3should be highlighted: only a single value is highlighted
• "bottomPercent" sheet: bottom 20% of observations in col 4 should be highlighted: only a single value is highlighted

Screenshots

[github-actions[bot]]

This issue is stale because it has been open 365 days with no activity. Remove stale label or comment or this will be closed in 7 days.

[github-actions[bot]]

This issue was closed because it has been stalled for 7 days with no activity.