R在侧边栏中有光泽地布置2x2表格,以便可见数字输入

时间:2018-12-22 21:33:27

标签: r shiny

我一直在为bootLR R程序包开发一个闪亮的接口,并使它工作得相当好。但是,使用numericInput在2x2表格中进行布局时,该界面似乎未显示在splitLayout框中键入的数字。我已经在OS / X和XFCE / Ubuntu / Linux上以各种分辨率对此进行了测试,问题是相同的。我尝试关闭标签然后再打开,尝试为列设置不同的宽度等,但都无济于事。

无论我做什么,看起来都像这样:

Example of the text boxes not showing the numbers typed

我已经在框中输入了一些数字,但是键入的数字不可见。

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

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

document tree

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)

0 个答案:

没有答案