修改 R shiny widgets 的子元素 - dateRangeInput selected date font size

Question

在构建 R Shiny 应用程序时，我在狭窄的空间中添加了一个 dateRangeInput 小部件。我想独立修改标签的字体大小和输入日期，但独立。我可以将两者缩小固定数量以匹配井面板中的其他控件，标题中带有 tags$style，

      tags$style(HTML("
                      .smallLabel {
                      font-size: 70%;
                      line-height: 20px;
                      margin-bottom: 0px;
                      padding-left: 12px;
                      padding-bottom: 0px;
                      margin-top: 0px;
                      padding-top: 0px;
                      }"
                   ))
and, on the UI 
                  tags$div(class="smallLabel",
                   dateRangeInput("daterangeTS", "Date range:",
                                  start = getDateStart(wy),
                                  end   = getDateEnd(wy)
                   ))

但是两个开始/结束日期被截断了，因为字体对于空间来说太大了。我的问题是：如何独立于标签修改开始/结束日期字体的大小？更一般地说，我如何发现小部件的结构以便我自己解决这个问题？