Скрыть главный заголовок в R Shiny App

Question

Я ищу способ скрыть значок главного заголовка, как мы делаем для боковой панели в R Shiny App, используя пакет ShinyJS. Прикрепление изображения для справки.

Код

library(shiny) 
library(shinydashboard) 
library(shinyjs) 

ui <- shinyUI(dashboardPage(
dashboardHeader(), 
dashboardSidebar(), 
dashboardBody(
useShinyjs() 
) 
)) 

server <- shinyServer(function(input, output, session) { 
addClass(selector = "body", class = "sidebar-collapse") # Hide Side Bar 
}) 

shinyApp(ui = ui, server = server) 

Answer 1

вы можете обновить функцию dashboardHeader и удалить элемент, который создает кнопку. Обратите внимание, что я просто прокомментировал это и переименовал функцию.

#rm(list = ls()) 
library(shiny) 
library(shinydashboard) 
library(shinyjs) 
mydashboardHeader <- function(..., title = NULL, disable = FALSE,title.navbar=NULL, .list = NULL) { 
    items <- c(list(...), .list) 
    #lapply(items, tagAssert, type = "li", class = "dropdown") 
    tags$header(class = "main-header", 
       style = if (disable) "display: none;", 
       span(class = "logo", title), 
       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, 
         div(class = "navbar-custom-menu", 
          tags$ul(class = "nav navbar-nav", 
            items 
          ) 
         ) 
      ) 
) 
} 

ui <- shinyUI(dashboardPage(
    mydashboardHeader(), 
    dashboardSidebar(), 
    dashboardBody(
    useShinyjs() 
) 
)) 

server <- shinyServer(function(input, output, session) {}) 
shinyApp(ui = ui, server = server)