I think I am doing something wrong as I still cannot get it to work, below a snippet of the code I am trying to add the horizontal scrollbar to:
library(shiny)
library(shinydashboard)
library(plotly)
library(ggiraph)
library(rpivotTable)
#SHINY
#HEADER
header<-dashboardHeader(title = "Silica Dashboard")
#SIDEBAR
sidebar<- dashboardSidebar(width = 300,
sidebarMenu(
menuItem("Dashboard", tabName = "Dashboard", icon = icon("dashboard")),
menuItem(text = "Tables", icon = icon("table"),
menuItem(text = "AUM Per Fund", tabName = "AUMFundTable"),
startExpanded = FALSE)
)
)
#BODY
body<-dashboardBody(
tabItems(
tabItem(tabName = "AUMFundTable",
h4("AUM Table"),
rpivotTableOutput("AUMFundTable")
)
)
)
#---------------------------------------------------------------------------------------------------------------------------------
#APP
shinyApp(
#UI
ui <- dashboardPage(header, sidebar, body),
#SERVER
server <- function(input, output) {
#***************************************************************************************
#AUM Table
output$AUMFundTable <- renderRpivotTable({rpivotTable(AUM_table})
})