rpivotTable в R: возможно ли сделать определенное имя переменной невидимым в выборочной области?

Question

Я хотел бы дружелюбно спросить, если кто-нибудь знает, как сделать некое имя переменной невидимым в селективной области при использовании пакета rpivotTable() в R?

Например, я строю сводную таблицу, используя набор данных "UCBAdmission":

# use rpivotTable to illustrate the effect
rp <- rpivotTable(UCBAdmissions, height=200)

Это выход rp:

Однако, если пользователь случайно перетащит "Freq" в область "col" или "row", таблица будет очень большой, но это не то, что мне нужно.

Поэтому я хотел бы найти способ сделать "Freq" невидимым в избирательной области. Я использовал здесь код, но он может настроить только всю таблицу, но не индивидуальную переменную.

style_widget <- function(hw=NULL, style="", addl_selector="") {
stopifnot(!is.null(hw), inherits(hw, "htmlwidget"))

# use current id of htmlwidget if already specified
elementId <- hw$elementId
if(is.null(elementId)) {
# borrow htmlwidgets unique id creator
elementId <- sprintf(
  'htmlwidget-%s',
  htmlwidgets:::createWidgetId()
)
hw$elementId <- elementId
}

htmlwidgets::prependContent(
hw,
htmltools::tags$style(
  sprintf(
    "#%s %s {%s}",
    elementId,
    addl_selector,
    style
  )
 )
 )
 }


library(htmltools)
library(htmlwidgets)
library(rpivotTable)

# use rpivotTable to illustrate the effect
rp <- rpivotTable(UCBAdmissions, height=200)

browsable(
tagList(
rp,
style_widget(hw=rp, "font-family:monospace;"),
style_widget(hw=rp, "visibility:none;", "table td")
)
)

Я не знаю, как управлять настройкой для отдельных переменных. Кто-нибудь знает это или есть какие-либо идеи по этому поводу?

Я ценю за любые ответы.

Спасибо!

С наилучшими пожеланиями