Shinydashboard 'topbar'

Question

dashboardHeaderの横の横棒にいくつかのアイテムを置くことはできますか？私はあなたがのように右端にnotificationItemを置くことができることを知っています。

Answer 1

しかし、私は、私が上にこのようなフィルタをしたいなどのフィルタを追加するよう dashboardSidebarに同じオプションを使用したいです

ポークチョップの答えに基づいて、divに入れてfloat:leftを入力して、水平方向に広げるselectInput（またはその他の光沢のある入力）を単に使うことができます：

CustomHeader <- dashboardHeader() 
CustomHeader$children[[3]]$children <- list(
    div(style="float:left;height:50px",selectInput("select1", NULL, c("a","b","c"))), 
    div(style="float:left;height:50px",selectInput("select2", NULL, c("d","e","f")))) 

ui <- dashboardPage(
    CustomHeader, 
    dashboardSidebar(), 
    dashboardBody(textOutput("text1"),textOutput("text2")) 
) 

server <- function(input, output, session) { 
    output$text1 <- renderText({input$select1}) 
    output$text2 <- renderText({input$select2}) 
} 

shinyApp(ui, server) 

Answer 2

こんにちはあなたはこのような何かを行うことができます：

# rm(list = ls()) 
library(shiny) 
library(shinydashboard) 

CustomHeader <- dashboardHeader() 
CustomHeader$children[[3]]$children <- div(style="min-width:200px;",tags$input(id="searchbox",placeholder = " Search...",type="text",class="chooser-input-search",style="width:200px;height:50px;")) 

ui <- dashboardPage(
    CustomHeader, 
    dashboardSidebar(), 
    dashboardBody() 
) 
server <- function(input, output, session) {} 
shinyApp(ui, server)