如何在闪亮的“eventReactive”中构建表格结果

Question

如何为我在 selectInput“Col”和“Row”中假设的每个关系创建一个“表格结果”？ Dinamicaly，每次按下“确定”底部后。

library(shiny)
shinyUI(fluidPage(
    h4("Give a valor between 0 to 5, to each col/row relationship"),
    uiOutput("colrow"),
    hr(),
    h5("Result:"),
    tableOutput("result")
))
shinyServer(
  function(input, output, session) {
    cols <<- c("Select"="", "col01" = "c01", "col02" = "c02")
    rows <<- c("Select"="", "row01" = "r01", "row02" = "r02")
    values <<- c("Select"="", 1:5)
    output$colrow <- renderUI({
      div(selectInput("ipt_col", label = "Col",
                  choices = c(cols),
                  selected = cols[1],
                  width = "50%"),
         selectInput("ipt_row", label = "Row",
                  choices = c(rows),
                  selected = rows[1],
                  width = "50%"),
         selectInput("ipt_vlr", label = "Value",
                  choices = c(values),
                  selected = ""),
         actionButton("bt_ok", "ok")
     )
})
colrow_vlr <- eventReactive(input$bt_ok, {      
  as.data.frame(matrix(input$ipt_vlr, 1,1, dimnames = list(input$ipt_row,input$ipt_col)))    
})
output$result <- renderTable({    
  colrow_vlr()    
})
})

Answer 1

我稍微更改了您的代码，现在它可以工作了。我在进行更改的地方添加了 cmets。

library(shiny)

ui <- fluidPage(
  h4("Give a valor between 0 to 5, to each col/row relationship"),
  uiOutput("colrow"),
  hr(),
  h5("Result:"),
  # using DT which is recommended in shiny
  DT::dataTableOutput("result")
)

server <- function(input, output, session) {
  # no need to assign in the global env especially 'cols' is reserved
  cols <- c("Select"="", "col01" = "c01", "col02" = "c02")
  rows <- c("Select"="", "row01" = "r01", "row02" = "r02")
  values <- c("Select"="", 1:5)
  output$colrow <- renderUI({
    div(selectInput("ipt_col", label = "Col",
                    choices = cols, # no need to wrap with c()
                    selected = cols[1],
                    width = "50%"),
        selectInput("ipt_row", label = "Row",
                    choices = rows,
                    selected = rows[1],
                    width = "50%"),
        selectInput("ipt_vlr", label = "Value",
                    choices = values,
                    selected = ""),
        actionButton("bt_ok", "ok")
    )
  })
  colrow_vlr <- eventReactive(input$bt_ok, {      
    as.data.frame(matrix(input$ipt_vlr, 1,1, dimnames = list(input$ipt_row,input$ipt_col)))    
  })
  output$result <- DT::renderDataTable({    
    colrow_vlr()
  })
}

shinyApp(ui = ui, server = server)