从输入值创建数据框

Question

我现在开始在Shiny库中创建一个应用程序，我的想法是保存在我手动输入的数据框值（从输入中），我创建了一个应用程序（简单），但是当我尝试保存每个我手动输入的值（在输入中）删除了先前的值。我现在的代码是非常基本的，但依赖于你可以继续我的应用程序。我想做的是，我通过输入输入的每个值都将保存在矢量上，或者如果我有多个输入，则每个矢量都是矩阵的列。我感谢你能帮助我：

ui.R:library(shiny)
shinyUI(pageWithSidebar(
  headerPanel( "", ""),
  sidebarPanel(wellPanel(
      textInput('datavalues', "Valor",""),
      actionButton("submit","Guardar")
    )
  ),
  mainPanel(   
    verbatimTextOutput('datatable')
  )
))
server.R: library(shiny)
shinyServer(function(input,output,session){
  data1= reactive({
    if(input$submit!=0){
      isolate({
        data.frame(paste(input$datavalues))
      })
    }
  })
  output$datatable<-renderPrint(function(){
    if(!is.null(data1())){
      d<-data1()
      print(d)
    }
  })
})

Saludos，

Answer 1

1. 首先，您必须了解操作按钮的工作原理。

   动作按钮（在你的情况下为input$submit）初始值为0，但每次点击时它都会增加1，就像一个计数器。

2. 您可以使用此功能将值添加到矢量或数据

   # For vectors
   d[input$submit] <- input$datavalues
   # For Matrix
   d[input$submit, ] <- input$datavalues
   

3. 然后显示数据框＆＃39;