shiny - ダッシュボードを無効にする方法

Question

私は光沢があります。私がプロジェクトを作ったとき、私はサーバー側のダッシュボードヘッダーを隠す必要があります。

shinydashboardのWebサイトで、コードdashboardHeader(disable = TRUE)が見つかりました。私はこれを試みたが、それは仕事ではなかった。

しかし、問題を解決するためにshinyjsを使ってみました。

<code> 

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

    ui <- dashboardPage(
      dashboardHeader(
       extendShinyjs(text = 'shinyjs.hidehead = function(params) {   
       $("header").addClass("sidebar-collapse") }'), 
         ), 
      dashboardSidebar(), 
      dashboardBody(
       actionButton("button","hide_header",width = 4) 
         ) 
         ) 

    server <- function(input, output) { 
     observeEvent(input$button, { 
         js$hidehead()   
        })} 

    shinyApp(ui, server)</code> 

私はあなたがすでに知っていると思いますが、それでも機能しません。

私の場合のアイデアはありますか？

Answer 1

Shinyjsは素晴らしい図書館です。あなたのコードの問題は、最初にshinyjsをshinyjs::useShinyjs()で初期化し、dashboarBody関数の中に入れる必要があることです。また、ヘッダーを隠す/表示するには、実際にサイドバー用のクラス"sidebar-collapse"を追加する必要はありません。ヘッダーを非表示にするには、style="display:none"を追加してヘッダーを表示するために削除する必要があります。以下はヘッダーを表示/非表示に変更したコードです。使用されるJSコードは非常に簡単で、js$hidehead()関数から直接追加するパラメータを受け取ります。

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

ui <- dashboardPage(
     dashboardHeader(), 
     dashboardSidebar(), 
     dashboardBody(
      # initialize shinyjs 
      shinyjs::useShinyjs(), 
      # add custom JS code 
      extendShinyjs(text = "shinyjs.hidehead = function(parm){ 
            $('header').css('display', parm); 
           }"), 
      actionButton("button","hide header"), 
      actionButton("button2","show header") 
     ) 
    ) 

server <- function(input, output) { 
    observeEvent(input$button, { 
    js$hidehead('none')   
    }) 
    observeEvent(input$button2, { 
    js$hidehead('')   
    }) 
} 

shinyApp(ui, server)