Question

我正在开发一个用户输入2x2表的应用程序。目前我正在使用ui.R

library(shiny)
shinyUI(fluidPage(
titlePanel("2x2 Table"),
sidebarLayout(
  sidebarPanel(                                      
       sliderInput("n11","Count of cell 1-1",
          min=0, max=100, value=50,step=1), 
       sliderInput("n12","Count of cell 1-2",
          min=0, max=100, value=50,step=1), 
       sliderInput("n21","Count of cell 2-1",
          min=0, max=100, value=50,step=1), 
       sliderInput("n22","Count of cell 2-2",
          min=0, max=100, value=50,step=1), 
    ),
  mainPanel(
      uiOutput("table")
    )
  )
))

但是如果我可以在sidebarPanel中有一个2x2表，用户输入他们的数字会更好

我找到了matrixInput，但这似乎不起作用，不能交互式地改变矩阵

由于

沃尔夫冈

Answer 1

您应该考虑使用嵌套的fluidRow和列来获取所需的网格而不是sidebarLayout＆amp; sidebarPanel。示例如下......可能需要复制并粘贴到R

中

library(shiny);
shinyUI(fluidPage(
    titlePanel("Word Prediction - Iteration 1.12"),
    fluidRow(
        column(3,
               wellPanel(
                   h4('Work outstanding'),
                )
               ),
        column(9,
               fluidRow(column(9,h4('Predicted words ...'))),
               fluidRow(
                   column(3,
                          verbatimTextOutput('oid1'),
                          tags$head(tags$style(type="text/css", "#oid1 {text-align: center}"))
                          ),
                   column(3,
                          verbatimTextOutput('oid2'),
                          tags$head(tags$style(type="text/css", "#oid2 {text-align: center}"))
                          ),
                   column(3,
                          verbatimTextOutput('oid3'),
                          tags$head(tags$style(type="text/css", "#oid3 {text-align: center}"))
                          )
                   ),
               fluidRow(
                   column(9,
                      h4('The same sentence now including the predicted word ...'),
                      verbatimTextOutput('oid4')
                   )
               ),
               br(),br(),br(),br(),hr(),
               fluidRow(
                   column(9,
                          textInput('id1','Type in your sentence'),
                          tags$head(tags$style(type="text/css", "#id1 {width: 720px}"))
                          )
                )
           )
    )
))

在ui.R中输入项目作为表格的安排？

1 个答案: