R Shiny中如何实现下拉选择器与文本输入框的友好并排布局？

希望实现下拉列表选择器与文本输入框并排排布，当前采用splitLayout布局方案，但实际运行效果不佳、交互体验差。

原实现代码（已翻译为中文） #

column(3,
       titlePanel("步骤1：基础文件上传"),
       # 月份选择
       splitLayout(cellWidths = c("50%", "50%"), 
       selectInput("mes", "请选择月份：",
                   c("一月"   = "01",
                     "二月"   = "02",
                     "三月"   = "03",
                     "四月"   = "04",
                     "五月"   = "05",
                     "六月"   = "06",
                     "七月"   = "07",
                     "八月"   = "08",
                     "九月"   = "09",
                     "十月"   = "10",
                     "十一月" = "11",
                     "十二月" = "12"
                     ), width=120),            
        textInput("year", "请输入年份：", value="(YYYY)", width=120)),

原运行效果为两个控件挤压、标签错位，操作不便。 #

现有体验差的核心原因是splitLayout在窄列场景下的默认对齐、内边距适配不佳，同时硬编码控件宽度容易出现溢出或挤压，可改用Shiny原生的嵌套栅格布局实现并排效果，交互更稳定。

优化后代码 #

# 外层列可根据实际需求调整宽度，此处保留原3单位的窄列设置
column(3,
       # 替换大标题为适配窄列的小标题，避免样式突兀
       h4("步骤1：基础文件上传"),
       fluidRow(
         # 月份下拉框占50%宽度
         column(6,
                selectInput("mes", "请选择月份：",
                            c("一月"   = "01",
                              "二月"   = "02",
                              "三月"   = "03",
                              "四月"   = "04",
                              "五月"   = "05",
                              "六月"   = "06",
                              "七月"   = "07",
                              "八月"   = "08",
                              "九月"   = "09",
                              "十月"   = "10",
                              "十一月" = "11",
                              "十二月" = "12"
                            ), width="100%")
         ),
         # 年份输入框占50%宽度
         column(6,
                textInput("year", "请输入年份：", value="(YYYY)", width="100%")
         )
       )
)

优化说明 #

• 去掉了硬编码的固定像素宽度，控件宽度设为100%自适应父容器，不会出现挤压或溢出
• 用嵌套fluidRow+column栅格布局替换splitLayout，两个控件的对齐、间距会自动适配Shiny的默认样式，标签不会错位换行
• 把titlePanel替换为h4小标题，适配窄列的展示尺寸，不会出现大标题占满整行的突兀问题
  如果需要进一步压缩标签和控件的间距，可额外添加少量CSS调整控件的内边距：

tags$style(".form-group { margin-bottom: 0.5rem; }")

内容的提问来源于stack exchange，提问作者Andres Mora