Что вызывает ограниченную ширину в жидкости?

Question

Ширина не занимает всю доступную ширину.

Что заставляет пользовательский интерфейс <- liquidPage обрезать ширину меньше полной ширины? </p>

Я пытался извлечь пользовательский интерфейс<- liquidPage и происходит то же самое. </p>

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

Любые предложения приветствуются.