Css 调整“的大小”；至；daterangeInput中的框

我已经更改了DateRange输入框的高度，但无法确定如何使分隔框大小匹配

我使用RNotebook为我的代码生成HTML，并怀疑此行可能包含密钥：

到

我尝试添加.input组插件{height:22px}-这没有帮助

library(shiny)
ui <- 
fluidPage(
   tags$style(type='text/css', ".form-control {height: 22px;font-size: 12px;}") 
dateRangeInput('dateRange',label = "Date Range",start = "2009-01-01", end =" 2010-01-01"))                
server <- function(input, output) {}
shinyApp(ui, server)   

库（闪亮）
ui试试这个：

.input-daterange .input-group-addon {
    height: 22px;
    font-size: 10px;
    line-height: normal;
}