Html 与selectizeInput内联的标题

我想将

selectizeInput（）

添加到我闪亮的应用程序的标题中。此外，我想将标题向左对齐，并将

选择izeInput（）

向右对齐

我试过这个：

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)
))

但是header和

selectInput（）

不在同一行。当我排除

float:right

时，它们是，但没有正确对齐

---

欢迎任何建议

您可以使用以下内容：

 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)
    ))