解释一下(并简化为两个输入的情况)，您的问题是:

runApp(list(
    ui = bootstrapPage(
        textInput(inputId="xlimitsmin", label="x-min", value = 0.0),
        textInput(inputId="xlimitsmax", label="x-max", value = 0.5)
    ),
    server = function(input, output) {}
))

显示

但你需要并排的小输入，比如:

The short answer

textInputRow<-function (inputId, label, value = "") 
{
    div(style="display:inline-block",
        tags$label(label, `for` = inputId), 
        tags$input(id = inputId, type = "text", value = value,class="input-small"))
}
runApp(list(
    ui = bootstrapPage(
        textInputRow(inputId="xlimitsmin", label="x-min", value = 0.0),
        textInputRow(inputId="xlimitsmax", label="x-max", value = 0.5)
    ),
    server = function(input, output) {}
))

给予:

The long answer

并排输入

让我们先并排做:

目前，textInput生成两个独立的标记——label和input，每个标记都由CSS配置为display:block，这意味着它是一个矩形，将在容器的左侧断开.我们需要将每个textInput的字段包装在新容器(div)中，并使用CSS的display:inline-block告诉该容器，它后面的容器(下一个textInput)可以位于页面上的同一水平行上.

因此，我们添加了一个div，每个div的样式大约为textInput:

runApp(list(
    ui = bootstrapPage(
        div(style="display:inline-block",textInput(inputId="xlimitsmin", label="x-min", value = 0.0)),
        div(style="display:inline-block",textInput(inputId="xlimitsmax", label="x-max", value = 0.5))
    ),
    server = function(input, output) {}
))

小投入

现在让我们来处理小问题.有几种方法可以做小事情，

1. 使字体变小，
2. 使输入框中的字符更少.
3. 告诉css或(此处) bootstrap 程序绘制一个较小的框

因为当我们使用shiny时，bootstrap.js实际上控制着布局，所以只有3个可以可靠地工作，所以让我们使用它.

输入大小记录在Bootstrap 2.3.2's CSS Forms documentation, under 'Control Sizing'中.它包括各种尺寸，从迷你、小型、中型、大型、xlarge和xxlarge，默认值可能是中型.让我们试试小的.

要设置大小，我们需要更改textInput生成的input标记的类.

现在，textInput只是一个方便的函数，与tags$label和tags$input等更强大的tags函数相比.我们可以构建一个更强大的textInput版本，允许我们配置元素，特别是input node 的类:

textInput2<-function (inputId, label, value = "",...) 
{
    tagList(tags$label(label, `for` = inputId), tags$input(id = inputId, 
                                                           type = "text", value = value,...))
}
runApp(list(
    ui = bootstrapPage(
        div(style="display:inline-block",textInput2(inputId="xlimitsmin", label="x-min", value = 0.0, class="input-small")),
        div(style="display:inline-block",textInput2(inputId="xlimitsmax", label="x-max", value = 0.5, class="input-small"))
    ),
    server = function(input, output) {}
))

我们已经完成了——但是我们可以通过让textInput3生成div标签来增加一些功能.它也可以自行设置类，但我将留给您编写.

把它包起来

textInput3<-function (inputId, label, value = "",...) 
{
    div(style="display:inline-block",
        tags$label(label, `for` = inputId), 
        tags$input(id = inputId, type = "text", value = value,...))
}
runApp(list(
    ui = bootstrapPage(
        textInput3(inputId="xlimitsmin", label="x-min", value = 0.0, class="input-small"),
        textInput3(inputId="xlimitsmax", label="x-max", value = 0.5, class="input-small")
    ),
    server = function(input, output) {}
))

出于兴趣，以下是使用input-mini类的版本: