Shiny 使用SHINK创建逗号分隔的字符串列表

当您需要将一个值附加到已经存在的输出中时，如何处理它

为了简化我的问题：

我想在单个变量中创建逗号分隔的代码列表，即：

02,04,05,11,31

并在创建列表时显示列表。我在运行时验证代码，这不是问题所在

我目前有一个文本输入小部件来输入我的代码。 我想在每次按下操作按钮时，将文本输入字段中的值附加到列表中

有没有关于如何做到这一点的例子

---

当我尝试使用输出对象并向其附加内容时，Shiny不喜欢它。

您可以使用

Paste

来执行此操作。我相信还有很多其他的方法可以做到这一点，看看这个例子在这里的画廊部分。下面是一个示例代码，我只需打印出

Sys.time（）

，并将其附加到最后一个条目中

以下是两个例子：

不带按钮的示例1

library(shiny)
runApp(list(ui = fluidRow(wellPanel(verbatimTextOutput("my_text"))), 

server = function(input, output, session) {
    autoInvalidate <- reactiveTimer(1000,session)
    my_file <- as.character(Sys.time())
    output$my_text <- renderText({
      autoInvalidate()
      my_file <<- paste(my_file,as.character(Sys.time()),  sep=",")
    })
  })
)

library(shiny)
runApp(list(ui = fluidRow(actionButton("push","Append"),wellPanel(verbatimTextOutput("my_text"))), 

server = function(input, output, session) {

my_file <- as.character(Sys.time())
output$my_text <- renderText({

if(input$push==0)
{
 return(my_file)
}
isolate({
input$push
my_file <<- paste(my_file,as.character(Sys.time()),  sep=",")              
  })
 })
})
)

库（闪亮）
runApp（列表（ui=fluidRow（wellPanel（逐字输出（“我的文本”））），
服务器=功能（输入、输出、会话）{
自动失效