Блестящая панель инструментовЗаголовок кнопки Заголовок скрыть в некоторых вкладках - PullRequest
Новая
       33

Блестящая панель инструментовЗаголовок кнопки Заголовок скрыть в некоторых вкладках

0 голосов
/ 13 сентября 2018

Я добавил кнопку «Назад» в Dashboardheader в качестве раскрывающегося класса, и я хотел бы скрыть ее при просмотре вкладки «Главная» и отобразить ее при просмотре вкладки «Вкладка». Есть ли способ отключить / включить его для определенных вкладок? Вот мой код, а затем визуализация проблемы, с которой я сталкиваюсь. 

dashboardHeader <- function(..., title = NULL, disable = 
FALSE,title.navbar=NULL, .list = NULL) {items <- c(list(...), .list)
tags$header(class = "main-header",style =  "display:inline;",
span(class = "logo",title="App", style = "width=0px;"),
# create the home icon and connect it with the home tab     
(tags$ul(class="nav navbar-nav",(
tags$li(a(onclick = "openTab('home')",href = NULL,
  icon("menu-left","fa-1x",lib="glyphicon"),
  title = "Users",
  style = "cursor: pointer;color:white;"),
  class = "dropdown2",
  id="backwardsbtn",
  tags$script(HTML("
      var openTab = function(tabName){
      $('a', $('.sidebar')).each(function() {
      if(this.getAttribute('data-value') == tabName) {
      this.click()
      };
      });
      }")))))),
  #icon that activates the sidebar
  tags$nav(class = "navbar navbar-static-top", role = "navigation",
  # Embed hidden icon so that we get the font-awesome dependency
          span(shiny::icon("bars"), style = "display:none;"),
          # Sidebar toggle button
          a(href="#", class="sidebar-toggle", `data-toggle`="offcanvas",
          role="button",  
          span(class="sr-only", "Toggle navigation")
          ),title.navbar  ))}
 ui <- function(){dashboardPage(
 header <- dashboardHeader(title.navbar.html <- tags$div(style="font- 
 size:30px;padding-left:50px",HTML(paste0("App title"))),
                        title.navbar = title.navbar.html),
 dashboardSidebar(                                                                            
 sidebarMenu(id="tabs",
            menuItem("Home", tabName = "home"),
            menuItem("Tab", tabName = "tab")
)),
dashboardBody(                
tabItems(                                                                               
  tabItem(tabName='home',paste0("home")),
  tabItem(tabName="tab",paste0("tab"))            
))
)}
server <- function(input, output, session) {}
shinyApp(ui = ui, server = server)

Пример: я бы включил кнопку, обозначенную красным

...