时间戳

首页 > 解决方案 > 以持久的方式将新的用户输入和修改保存到本地文件

r - 以持久的方式将新的用户输入和修改保存到本地文件

问题描述

我正在使用 DTedit 包并希望实现两个功能。我附上了来自包作者的 github 的代码示例。我想实现的两件事是：

我一直在尝试一些选项并查看互联网上的一些教程，但无法解决这两个问题。

library(shiny)
library(DTedit)

##### Create the Shiny server
server <- function(input, output) {
    mydata <- data.frame(name = character(),
                         email = character(),
                         useR = factor(levels = c('Yes', 'No')),
                         notes = character(),
                         stringsAsFactors = FALSE)

    ##### Callback functions.
    my.insert.callback <- function(data, row) {
        mydata <- rbind(data, mydata)
        return(mydata)
    }

    my.update.callback <- function(data, olddata, row) {
        mydata[row,] <- data[1,]
        return(mydata)
    }

    my.delete.callback <- function(data, row) {
        mydata <- mydata[-row,]
        return(mydata)
    }

    ##### Create the DTedit object
    DTedit::dtedit(input, output,
           name = 'mycontacts',
           thedata = mydata,
           edit.cols = c('name', 'email', 'useR', 'notes'),
           edit.label.cols = c('Name', 'Email Address', 'Are they an R user?', 'Additional notes'),
           input.types = c(notes='textAreaInput'),
           view.cols = c('name', 'email', 'useR'),
           callback.update = my.update.callback,
           callback.insert = my.insert.callback,
           callback.delete = my.delete.callback)
}

##### Create the shiny UI
ui <- fluidPage(
    h3('DTedit Template'),
    uiOutput('mycontacts')
)

##### Start the shiny app
shinyApp(ui = ui, server = server)

标签： rshinylocal-storageuser-input

解决方案

我将支持评论中已经提出的建议，即存储到数据库中，例如sqlite（或者甚至airtable，如果数据不是特别敏感，则有 R 接口）是最好的解决方案。

在这种情况下，您可以使用dtedit的回调将数据存储在数据库中，如github 存储库dtedit中的演示应用程序所示。DTedit

回答特定的第一点，用于在对表进行任何新添加或修改后将数据保存到本地文件的按钮。理想情况下，我们可以将所有新增内容（或版本）附加到现有的 CSV 文件中，DT（DTedit基于此）确实具有将当前表保存到 CSV 或 Excel 文件中的功能。

我认为这不是您的最佳主意，您的应用程序仍将负责在应用程序启动时“重新加载”此数据，并且正如其他人所说，一次只有一个用户可以写入 CSV/Excel 文件. 此外，在本地存储 CSV 文件通常不会在包的www/文件夹中完成！

尽管如此，如果存储 CSV 文件是适合应用程序的“快速破解”解决方案，则可以修改DTedit以传递所需的参数，DT以便 CSV/Excel 保存按钮可用。我和其他人已经修改DTedit以允许将参数传递给DT::datatable，修改后的版本在 GithubDTedit上可用。RPubs 上提供了显示添加“保存”按钮的小插图，并在下面复制。

library(DTedit)

server <- function(input, output) {
  
  Grocery_List_Results <- dtedit(
    input, output,
    name = 'Grocery_List',
    thedata = data.frame(
      Buy = c('Tea', 'Biscuits', 'Apples'),
      Quantity = c(7, 2, 5),
      stringsAsFactors = FALSE
    ),
    datatable.call = function(...)
      {DT::datatable(..., extensions = 'Buttons')},
    datatable.options = list(
      dom = 'Bfrtip',
      buttons = c('copy', 'csv', 'pdf', 'excel')
    )
  )
}

ui <- fluidPage(
    h3('Grocery List'),
    uiOutput('Grocery_List')
)

shinyApp(ui = ui, server = server)

带有复制/保存按钮的数据表图片

推荐阅读