header inline with selectizeInput

Question

selectizeInput()を、光沢のあるアプリのヘッダに1行で追加したいと思います。さらに、ヘッダーを左側に、selectizeInput()を右側に揃えたいと思います。

私はこれを試してみました：

shinyUI(fluidPage(
    theme = shinytheme("simplex"), 
    titlePanel(title = div(div(style = "display: inline-block; ", 
          "My shiny application"), 
         div(style = "width: 200px; display: inline-block; 
             float: right; ", 
          selectInput(inputId = "opt", 
             label = "", 
             choices = c("opt1", "opt2", "opt3"), 
             selected = "opt1")))), 

    sidebarLayout(
    sidebarPanel(), 
    mainPanel(), 
    fluid = F) 
)) 

しかし、ヘッダとselectInput()は、同じ行にありません。私がfloat: rightを除外すると、それはありますが、正しく整列されていません。

どのような提案も歓迎されます！

Answer 1

あなたはこのようなものを使用することができます。

shinyUI(fluidPage(
     theme = shinytheme("simplex"), 
     tagList(div(div(style = "display: inline-block; ", 
           h1("My shiny application"),class="main_title"), 
          div(style = "width: 200px; display: inline-block; 
              float: right; ", 
           selectInput(inputId = "opt", 
              label = "", 
              choices = c("opt1", "opt2", "opt3"), 
              selected = "opt1")))), 

     sidebarLayout(
     sidebarPanel(), 
     mainPanel(), 
     fluid = F) 
    ))