0

I an using rpivotTable in a Shiny app

in UI it is inside a tabSetPanel:

 tabPanel("Pivot Table",
           shinycssloaders::withSpinner(
            rpivotTableOutput("pivot_table")
           )
  )

in Server it is updated once the dataframe is loaded and filtered:

output$pivot_table <- renderRpivotTable({ rpivotTable(data = filtered_df(), rows=c("HIGH_LEVEL_GROUP_TERM", "HIGH_LEVEL_TERM", "AE_AS_PREFERRED_TERM"), vals = "SAPPHIRE_CASE_ID_VERSION", aggregatorName = "Count Unique Values", rendererName = "Heatmap", width="100%") })

When I scroll down the page, anything not observable immediately seems to have black on the outside of the pivot table?

I am using "shinydashboard"....

enter image description here

smackenzie
  • 2,880
  • 7
  • 46
  • 99

0 Answers0