[pt] another attemt to fix item sorting

[JanMarvin]

Apparently #842 was not yet sufficient. second part of #909

library(openxlsx2)
dd <- data.frame(Foo = sample(0:1, 26, TRUE), foo2 = letters, bar = TRUE)
wb <- wb_workbook()$add_worksheet()$add_data(x = dd)
pt <- wb_data(wb)

# so how am I supposed to order this?
wb$
  add_pivot_table(pt, rows = "foo2", data = "bar",
                  pivot_table = "pt1",
                  params = list(
                    sort_item = list(foo2 = c("b", "e", "d"))
                  ))$
  add_slicer(pt, slicer = "foo2", pivot_table = "pt1", dims = "A10",
             params = list(
               choose = c(foo2 = 'x %in% c("b", "e", "d")')
             ))

if (interactive()) wb$open()