Surrond your tabpanel with a div giving a width. Add some css to change the max-width of a fluid container
library(shiny)
nrow <- 20; ncol <- 26
runApp(list(
ui = fluidPage(
sidebarLayout(
sidebarPanel(helpText("Hello world")),
mainPanel(
tabsetPanel(
div(tabPanel("Table", dataTableOutput("table")), style = 'width:5500px;')
)
,
tags$head(tags$style(type="text/css", ".container-fluid { max-width: 12600px; /* or 950px */}"))
)
)
),
server = function(input, output, session) {
output$table <- renderDataTable({
as.data.frame(
matrix(nrow = nrow,
rep("The quick brown fox jumps over the lazy dog", nrow*ncol)
)
)
})
}
))