我一直在为bootLR
R程序包开发一个闪亮的接口,并使它工作得相当好。但是,使用numericInput
在2x2表格中进行布局时,该界面似乎未显示在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)