problem with removing Totals in RpivotTable

Question

Can someone please help me in removing Totals coming up in RpivotTable as shown in the diagram. I'm adding the code as well. Stuck on its since long, please guide.

Regards

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

score 2 · Answer 1 · edited Jan 13 '20 at 09:03

Subtotals can be removed presented on the 6th row below:

library(pivottabler)

pt <- PivotTable$new()

pt$addData(data)

pt$addColumnDataGroups("Date")  

pt$addRowDataGroups("SKU.ID" ,  addTotal=FALSE) 

pt$addRowDataGroups("Location" ,  addTotal=FALSE)

pt$renderPivot()

pt$defineCalculation(calculationName="Total Sales Qty", summariseExpression="sum(Sales_Qty, na.rm=TRUE)")

pt$defineCalculation(calculationName="TotalSalesQty")
pt$renderPivot()

score 1 · Answer 2 · answered Mar 21 '19 at 14:19

I got it working like this through CSS (a workaround since only the display is hidden):

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

I dont think it works in Shiny app though.

score 1 · Answer 3 · answered Nov 02 '20 at 16:50

The solution from szapiszapo works for Shiny apps if you add tags$style( ".pvtTotalLabel, .colTotal, .rowTotal, .pvtGrandTotal { display: none; }" ) to the UI. e.g.

ui <- fluidPage(
    tags$style(
        ".pvtTotalLabel, .colTotal, .rowTotal, .pvtGrandTotal { display: none; }"
    ),
    rpivotTableOutput("pivot_table", height = "100%")
)

score 0 · Accepted Answer · answered Oct 27 '18 at 17:56

0

The current version of rPivottable doesn’t allow you to remove totals, but the next version likely will.

answered Oct 27 '18 at 17:56

nicolaskruchten

26,384
8
83
101

Thanks nicolas, can you pls let me know when will the next version be available? – Sid Oct 27 '18 at 22:48
i want to ask you one more thing, the url of shiny app doesn't load, in log it says out of memory, i don't want to minimize my dataset, can you please suggest me a solution? – Sid Oct 27 '18 at 22:50
Hi Nicolas, i have 2 questions. 1) Can i hide totals if not delete? 2) Can i increase the width of drop downs? as some strings are big and unreadable in drop down unless scrolled to left – Sid Oct 29 '18 at 12:02

problem with removing Totals in RpivotTable

4 Answers4