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