Как создать заголовок над панелями в центре приложения Rshiny - PullRequest
Новая
       28

Как создать заголовок над панелями в центре приложения Rshiny

1 голос
/ 12 апреля 2020

Я пытаюсь создать макет с двумя изображениями справа и слева с заголовком, выровненным над панелями вкладок. К сожалению, название идет рядом с вкладками. Я попытался использовать navbarpagetext, используя функцию.

Как выровнять заголовок и панель вкладок между двумя изображениями, используя комбинацию Fluidpage и navbarPage

enter image description here

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

    ) ))}
...