Question

我有一个列表对象，我想用反应输入更新。该对象必须是一个列表。

以下是我的最小代码。提前谢谢。

library(shiny)

shinyApp(
  ui = fluidPage(
    fluidRow(
      numericInput("number", "Change number", 10, min = 1, max = 100),
      verbatimTextOutput('show')
    )
  ),

  server = function(input, output, session) {
    QG <- list(a = c(1:10),
           b = LETTERS[1:10])


    #How to update reactiveVal from reactive input
    #QG$a[2] <- input$number

    output$show <- renderPrint({
      QG$a[2]
    })

  }

)

Answer 1

这样的东西？

library(shiny)

QG <- list(a = c(1:10),b = LETTERS[1:10])

shinyApp(
  ui = fluidPage(
    fluidRow(
      numericInput("number", "Change number", 10, min = 1, max = 100),
      verbatimTextOutput('show')
    )
  ),

  server = function(input, output, session) {

    Values <- reactive({
      QG$a[2] <- as.numeric(input$number)
      QG
    })
    output$show <- renderPrint({
      Values()
    })
  }
)

如何使用被动输入更新列表中的元素？

1 个答案: