установить высоту поля dateInput () в блестящем

Question

У меня много сгенерированных полей ввода в блестящем приложении, и я хочу сделать его более плотным, уменьшив высоту полей dateinput. Тем не менее, тег высоты только сжимает прямоугольник и делает его переполненным при следующем вводе. Итак, как мне сжать поля dateInput(), чтобы они были чуть выше текста?

library(shiny)

ui <- fluidPage(
   tags$style(".shiny-date-input  {height : 30px;}")
  ,dateInput("date1","date1")
  ,dateInput("date2","date2")
  ,textInput("text","text")
)

shinyApp(ui, function(input, output, session){})

Обновление: Чтобы прояснить, я хочу, чтобы рамка dateInput (и, возможно, также textinput) была менее высокой, не доходя до входного удара:

Answer 1

Нашел ответ в .form_control:

library(shiny)
ui <- fluidPage(
   tags$style(".shiny-input-container  {line-height: 5px; height : 25px}")
  ,tags$style(".form-control  {height: 25px;}")

  ,dateInput("date1","date1")
  ,dateInput("date2","date2")
  ,textInput("text","text")
)

shinyApp(ui, function(input, output, session){})

Answer 2

Вы можете добавить класс input-sm к виджетам, чтобы сделать их немного меньше. Для этого используйте shinyjs.

library(shiny)
library(shinyjs)

ui <- fluidPage(
  useShinyjs(),
  dateInput("date1","date1"),
  br(),
  dateInput("date2","date2"),
  br(),
  textInput("text","text")
)

shinyApp(ui, 
         function(input, output, session){
           addClass("date1", "input-sm")
           addClass("date2", "input-sm")
           addClass("text", "input-sm")
         }
)