是什么导致fluidPage中的宽度受限？

Question

该宽度未占据可用的整个宽度。

是什么原因导致ui <-fluidPage截取的宽度小于全宽？

我已经尝试过将ui <-fluidPage删除，并且也会发生同样的情况。

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

显示截断宽度的屏幕截图： https://i.imgur.com/i28ZaIw.png

任何建议都值得赞赏。