проблема с удалением итогов в RpivotTable

Question

Может кто-нибудь помочь мне в удалении итогов, появляющихся в RpivotTable, как показано на схеме. Я также добавляю код. Застрял на нем давно, пожалуйста, руководство.

Привет

library(rpivotTable)
rpivotTable(data = mtcars, subtotals = FALSE, rows = c( "cyl"),cols=c("carb"), vals = "mpg", aggregatorName = "Sum", rendererName = "Table", width="50%", height="550px")

Answer 1

Я получил это с помощью CSS (обходной путь, так как скрыт только дисплей):

mypivottable <- htmlwidgets::prependContent(mypivottable,
     htmltools::tags$style(
     ".pvtTotalLabel, .colTotal, .rowTotal, .pvtGrandTotal { display: none; }"
     )
  )

Не думаю, что это работает в приложении Shiny.

Answer 2

Текущая версия rPivottable не позволяет удалять итоги, но, вероятно, следующая версия будет.