R 闪亮的 selectInput 和 SubmitButton 并排

Question

我正在 R 中开发一个 Shiny 应用程序。该应用程序由在 Linux 上运行的闪亮服务器运行。

我需要创建一个并排的 selectInput 字段和 SubmitButton。我做了以下尝试。

来自我的 ui.r

div(style="display:inline-block",
    selectInput("input$GeneVariable4", 
                label = h4(""), 
                choices = (Choices_cd), 
                multiple = TRUE,
                selected = c("Slc26a5","Sri"),
                selectize = TRUE,
                width = '400px'
                )
),
div(style="display:inline-block",
    submitButton("Submit")
),

此代码生成以下结果

这样做的问题是 selectInput 字段和 SubmitButton 之间有轻微的偏移。它很丑，我讨厌它。

有谁知道我如何解决这个问题。我尝试过添加br(),空格，但它只是向上或向下移动偏移量，并没有消除它。

任何关于如何将这些并排放置的建议将不胜感激。此外，提交按钮不能放置在下面，因为 selectInput 在选择时会下拉并带有选项，从而遮挡了放置在栏下方的任何提交按钮。

Answer 1

您可以使用fluidRow和column

fluidRow(column(4,
            selectInput(
                "input$GeneVariable4",
                label = h4(""),
                choices = (Choices_cd),
                multiple = TRUE,
                selected = c("Slc26a5", "Sri"),
                selectize = TRUE,
                width = '400px'
              )
            ),
     column(4, offset = 1,
                submitButton("Submit")))