r - R Shiny 在侧边栏中布置 2x2 表格，以便数字输入可见

Question

我一直在为bootLRR 包开发一个闪亮的界面，并让它运行得相当好。然而，numericInput当使用splitLayout. 我已经在 OS/X 和 XFCE/Ubuntu/Linux 上以各种分辨率对此进行了测试，问题是一样的。我试过关闭和打开标签，尝试不同的列宽度等，但无济于事。

无论我做什么，它看起来都是这样的：

我在框中输入了一些数字，但输入的数字不可见。

如何解决此布局问题？我应该使用其他东西splitLayout吗？

下面是一个最小的可重现示例。Web 浏览器文档树如下所示：

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)

标签： rshiny