Hide Column and Row Totals in Shiny

[anu87]

Hi! Is there a way to remove the row and totals from the rpivotTableOutput()? My output has 3x8 categories, so the total cells show totals for each category, which I don't want.

[smartinsightsfromdata]

According to the pivottable Q&A it is possible do what you want changing the css:

.pvtTotal, .pvtTotalLabel, .pvtGrandTotal {display: none}

You could in principle fork the package, change the css as above and use the new version: a lot of work!

What would make sense though, would be a way to change the css programmatically, i.e. on the fly.

I'm investigating...

[timelyportfolio]

Perhaps ramnathv/htmlwidgets#231 will help.

[smartinsightsfromdata]

@timelyportfolio great suggestion!

I was hoping to be able to use the JS method described here,
but I haven't been able to change the css on the fly in javascript (see my reply), therefore I'm a bit stuck.

Any further help is very welcome!

[anu87]

@smartinsightsfromdata I tried it in CSS - I added a style.css file to a folder 'www' in the project folder and then tried to add code that @XavierFlo shared. That didn't work. But if I change/add other things to the file about header and interface, it does change the Shiny output.

[smartinsightsfromdata]

I will give it a try next week, as I will be on hols :)

[smartinsightsfromdata]

@anu87 Apologies for taking so long. I didn't get around to try this, but I now posted in github (cran ongoing) a new version of rpivotTable aligned to the latest version of pivottable.

Would you be so kind to try again and report?

See also this nicolaskruchten/pivottable#538

[jangorecki]

There is subtotals argument to enable sub totals but there is no totals argument to disable totals... New totals argument could take logical of length two (recycled when length 1) to control rows/columns separately allowing to disable only row totals.
As per linked issue in pivottable js, this seems to be implemented there already, could we add support in rpivotTable function for that?

[timelyportfolio]

@jangorecki Looks like we need to do a couple things to support rowTotals and colTotals now provided and explained in rendererOptions.

1. update pivottable to the newest release 2.23.0
2. add arguments rowTotals and colTotals or a recycling option as you suggest

For now, a very ugly solution would be to modify the htmlwidget as shown below.

library(rpivotTable)

rp <- rpivotTable(
 Titanic,
 rows = "Survived",
 cols = c("Class","Sex"),
 aggregatorName = "Sum as Fraction of Columns",
 vals = "Freq"
)
rp$x$params$rendererOptions <- list(table = list(rowTotals = FALSE))
htmltools::browsable(
  htmltools::attachDependencies(
    htmltools::tagList(
      rp
    ),
    htmltools::htmlDependency(
      name = "pivottable",
      version = "2.23.0",
      src = c(href = "https://unpkg.com/"),
      script = "[email protected]/dist/pivot.min.js",
      stylesheet = "[email protected]/dist/pivot.css"
    ),
    append = TRUE
  )
)