Добавить фильтр к объекту openxlsx с активированным запросом - PullRequest
Новая
       11

Добавить фильтр к объекту openxlsx с активированным запросом

0 голосов
/ 30 мая 2018

Я записываю в файл отчет и использую для этого openxlsx, как показано ниже: 

library(openxlsx)

set.seed(100)

dataset <- data.frame(A=runif(100),B=runif(100),C=sample(c("A","B","C"), 100, replace=T))

hs <- createStyle(fontColour = "#ffffff", fgFill = "#4F80BD",
                  halign = "center", valign = "center", textDecoration = "bold",
                  border = "TopBottomLeftRight")

wb = createWorkbook()

  addWorksheet(wb = wb, sheetName = "example", gridLines = T, zoom = 70)
  writeData(
    wb, 
    sheet = "example", 
    x = dataset, 
    withFilter=T,
    borders="all",
    borderStyle="thin",
    headerStyle=hs
  ) 
  # The width of the columns will be automatically adjusted
  setColWidths(wb, sheet = "example", cols=1:ncol(dataset), widths = "auto")

saveWorkbook(wb, "example.xlsx", overwrite=T)

Я активировал с помощью фильтра вариант, так что конечный пользователь сможет выбрать только подмножества данных.Однако я бы хотел активировать один фильтр, чтобы по умолчанию отображалось только подмножество;например, я хотел бы показать только записи, в которых столбец C равен «B».

Я просмотрел документацию пакета openxlsx , но не могу найти, как это сделать.делай это где угодно.

...