R Shiny：向数据表添加新列

问题描述

我正在使用R Shiny创建机器学习应用程序。该应用程序使用输入小部件来创建测试过时值，然后将其输入到随机森林模型中，并在单击操作按钮时输出估计值。

我想将所选的输入数据以及估计和时间戳存储在数据表中。

我能够将所有选定的输入存储在一个表中，但是我在将2个额外的列（估计和时间戳）添加到数据表时遇到了一些麻烦。

有人有一个如何向数据表添加新列的示例吗？ 我正在使用renderDataTable()和dataTableOutput()函数来创建数据表。

这是我在网上找到的用于通过输入小部件创建数据表的服务器功能的代码：

server <- function(input,output,session) {

# Create the Log 
  saveData <- function(data) {
    data <- as.data.frame(t(data))
    if (exists("inputparameters")) {
      inputparameters <<- rbind(inputparameters,data)
    } else {
      inputparameters <<- data
    }
  }
  loadData <- function() {
    if (exists("inputparameters")) {
      inputparameters
    }
  }
  
  # Whenever a field is filled,aggregate all form data
  formData <- reactive({
    data <- sapply(fields,function(x) input[[x]])
    data
  })
  
  # When the Submit button is clicked,save the form data
  observeEvent(input$submit,{
    saveData(formData())
  })
  
  # Show the prevIoUs responses
  # (update with current response when Submit is clicked)
  output$inputparameters <- DT::renderDataTable({
    input$submit
    loadData()
  })
  
} # End Server function

除了输入窗口小部件中的列之外，如何向表中添加新列？

在此先感谢您的投入。

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）