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