title: How to create title above tabpanels at the center in Rshiny app
body: <p>I'm trying to create a layout with two images right and left side with title panel aligned above tab panels. Unfortunately title is coming beside tabs. I tried using navbarpagetext using a function.</p>
  
  <p>How to align title and tabpanel between twoimages using combination of fluidpage and navbarPage combination</p>
  
  <p><a href="https://i.stack.imgur.com/Gh5Bw.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/Gh5Bw.png" alt="enter image description here"></a></p>
  
  <pre><code>ui2 &lt;- function(){
  
    library(shinyLP)
    navbarPageWithText &lt;- function(..., text) {
      navbar &lt;- navbarPage(...)
      textEl &lt;- tags$h3(class = "navbar-text", text)
      navbar[[3]][[1]]$children[[1]]&lt;- htmltools::tagAppendChildren(
        navbar[[3]][[1]]$children[[1]], textEl)
      navbar
    }
  
  
  
    fluidPage(
      list( tags$body(tags$script(type="text/javascript", src = "code.js"),
                      tags$style(HTML("
         #abs {
  
    display: inline-block;
    list-style-type: none;
    margin_Top: 0;
    padding_Bottom:0 ;
    background-color: #f1f1f1;
    border: 5px solid #555;
    float: left;
    border-image-outset: auto;
         }  
  
        .text {
  
    padding_Bottom:100;
         }  
  
  
          "))
  
      ),
      navbarPageWithText(text = "Tools for testing",
        title=div(img(id = "abs",src="sai.png",height = 60,width = 110), HTML("&lt;sub&gt;this is the app &lt;br/&gt;SAFETY &amp; TESTING&lt;/sub&gt;")),
  
        # Argument    Description
        # header  Tag or list of tags to display as a common header above all tabPanels.
        # footer  Tag or list of tags to display as a common footer below all tabPanels
        # inverse TRUE to use a dark background and light text for the navigation bar
        # collapsable TRUE to automatically collapse the navigation elements into a menu when the width of the browser is less than 940 pixels (useful for viewing on smaller touchscreen device)
        #theme = shinytheme("flatly"),
        header = tagList(
          "Header",
          textInput("textH", "Text input:")
        ),
        footer = "Footer",
        inverse = TRUE,
        collapsible = FALSE,
        # theme = "cerulean",  # &lt;--- To use a theme, uncomment this
        #"shinythemes",
        br(),br(),br(),br(),br(),br(),br(),br(),br(),br(),br(),
  
  
        tabPanel(class = "absc","Navbar 1"),
  
  
        tabPanel(class = "absc","Tab 2"),
        tabPanel(class = "absc","Tab 3"),
  
        tabPanel(class = "absc","Navbar 2"),
        tabPanel(class = "absc","Navbar 3")
        # Sub Menu
  
      ) ))}
  </code></pre>