...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.
How to align title and tabpanel between twoimages using combination of fluidpage and navbarPage combination
ui2 <- function(){
library(shinyLP)
navbarPageWithText <- function(..., text) {
navbar <- navbarPage(...)
textEl <- tags$h3(class = "navbar-text", text)
navbar[[3]][[1]]$children[[1]]<- 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("<sub>this is the app <br/>SAFETY & TESTING</sub>")),
# 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", # <--- 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
) ))}