R Shiny selectInput和submitButton并排

Posted 2021-04-05

我正在使用R中的Shiny应用程序。该应用程序由运行在linux上的闪亮服务器运行。

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

from my 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会在选中时选择下拉，遮挡位于栏下方的任何提交按钮。

答案

你可以使用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")))