Высота блестящей панели не такая, как в ней

Question

Проблема: Попытка поместить параметры ввода текста в панель скважины для эстетических целей c, но высота панели скважины не совпадает с информацией в ней. Смотрите изображение ниже.

Когда я не использую column (), у меня нет проблем, но я предпочитаю сокращать пространство, занимаемое textinput ().

Соответствующий код:

tags$style(tableHTML::make_css(list('.well', 'border-width', '5px')))

        column(8,
               wellPanel(
                         column(4, textInput("text1", h4("Name"), width = "60%",
                                          value = "Jane Doe"),
                                   textInput("text3", h4("Wind"), width = "60%",
                                          value = "x")),
                         column(4, textInput("text2", h4("Temperature"), width = "60%",
                                          value = "x"),
                                   textInput("text4", h4("Water"), width = "60%",
                                          value = "x")))

        )

Любая помощь приветствуется.

Answer 1

column s всегда должны быть заключены в fluidRow:

library(shiny)

ui <- fluidPage(
  fluidRow(
    column(8,
           wellPanel(
             fluidRow(
               column(4, textInput("text1", h4("Name"), width = "60%",
                                   value = "Jane Doe"),
                      textInput("text3", h4("Wind"), width = "60%",
                                value = "x")),
               column(4, textInput("text2", h4("Temperature"), width = "60%",
                                   value = "x"),
                      textInput("text4", h4("Water"), width = "60%",
                                value = "x"))
             )
           )
    )
  )
)

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