如何解决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 举报,一经查实,本站将立刻删除。