R闪亮文字输入宽度大小

Question

我正在尝试使用以下代码来减少文本框的宽度，这些代码将它们并排放置，但我没有得到任何更改。

textInputRow <-function (inputId, label, value = "") 
{
    div(style="display:inline-block",
        tags$label(label, `for` = inputId), 
        tags$input(id = inputId, value = value),
        tags$style(type="text/css", width = '50px'))
}

textInputRow(inputId="40.1", label="40", value = ''),
textInputRow(inputId="40.2", label="", value = ''),