R Блестящее расположение таблицы 2х2 на боковой панели, чтобы были видны числовые значения

Question

Я работал над блестящим интерфейсом к пакету bootLR R, и он работает достаточно хорошо.Интерфейс, однако, не отображает числа, введенные в поля numericInput, когда они размещены в таблице 2x2 с использованием splitLayout.Я проверил это на OS / X и XFCE / Ubuntu / Linux в разных разрешениях, и проблема та же.Я пытался выключать и включать метки, пробовал разные ширины столбцов и т. Д.

Неважно, что я делаю, похоже, это выглядит так:

Я набрал несколько цифр в полях,но набранные цифры не видны.

Как мне решить эту проблему с макетом?Должен ли я использовать что-то отличное от splitLayout?

Ниже приведен минимальный воспроизводимый пример.Дерево документов веб-браузера выглядит следующим образом:

library(shiny)

# Define UI for application that draws a histogram
ui <- fluidPage(

  # Application title
  titlePanel("Diagnostic test statistics from a 2x2 table"),

  # Sidebar with a slider input for number of digits to round 
  sidebarLayout( fluid = TRUE, 
                 sidebarPanel(
                   fluidRow(
                                splitLayout(
                                  column(6,
                                         numericInput("truePos", "True positive", value = NA),
                                         numericInput("falseNeg", "False negative", value = NA)
                                  ),
                                  column(6,
                                         numericInput("falsePos", "False positive", value = NA),
                                         numericInput("trueNeg", "True negative", value = NA)
                                  )
                                )
                   )
                 ),

                 mainPanel(
                 )
  )
)

# Define server logic required to draw a histogram
server <- function(input, output) {

}

# Run the application 
shinyApp(ui = ui, server = server)