What is causing the limited width in fluidPage?

The width does not occupy the entire width available.

What is causing the ui <- fluidPage to cut off the width less than full width?

I have tried rem out the ui <- fluidPage and the same occurs.

Screenshot displaying the width cut off: https://i.imgur.com/i28ZaIw.png

Any suggestions greatly appreciated.

library(shiny)
library(shinythemes)
        #library(shinydashboard)
        #library(shinyjs)
        # library(data.table)

ui <- fluidPage(

tagList(

windowTitle =    
tags$head(

tags$style(
HTML(
".navbar-nav {
#float: none !important;
}
.navbar-nav > li:nth-child(5) {
float: right;
right: -179px;
}
.navbar-nav > li:nth-child(6) {
float: right;
right: -464px;
}
.navbar-nav > li:nth-child(7) {
float: right;
right: -710px;
}
")
),

tags$link(rel = "shortcut icon", href = "favicon.png"),
tags$title("Exodus 3:14 ... Seeking Those Seeking HIM"),

tags$script(type="text/javascript", src = "code.js")),

navbarPage(theme = shinytheme("cerulean"),title = "Literate Aspects",

#---------------> First tabPanel
tabPanel("First",value = "page-nav-second",
        # useShinyjs(),
        # actionButton("remove", "show / hide"),

mainPanel(
tabsetPanel(id = "tabs1_1",
tabPanel(id = "M", "M tab",

textInput("text", "Text")),

tabPanel(id = "N", "N tab"),
tabPanel(id = "W", "W tab")
)
)
)#,  # end first tabPanel
)# end navbarPage
)# end tagList
)# end fluidPage

RESOLVED: incorrect usage of the mainPanel in tabPanel.

This topic was automatically closed 7 days after the last reply. New replies are no longer allowed.