【Shiny】textInputを使ってリストにテキストを追加する方法

library(shiny)ui <- fluidPage( textInput("text", "Enter text:"),  verbatimTextOutput("value"))server <- function(input, output) {  values <- reactiveValues(list = NULL)    observeEvent(input$text, {    values$list <- append(values$list, input$text)  })    output$value <- renderText({    paste("The list is:", values$list)  })}shinyApp(ui, server)

結果

続きをみる