我在使用DTR中的DTedit包编辑数据表时遇到一些问题

my.callback.update

，

my.callback.insert

，

my.callback.delete

函数不起作用，编辑后的表不保存

我试着用闪亮的r做这个

应用程序R

库（闪亮）
图书馆（shinydashboard）
库（DTedit）
ui不幸的是，当前显示的文档（2020年6月21日）对
数据
/
旧数据
/
行
的内容有误导性，正如上的一些评论所述

以下是上所述的修订文档，描述了
数据
/
旧数据
/
行
实际包含的内容

my.insert.callback 1。请提供带有数据或虚拟数据的复制示例。2.看起来您没有定义回调函数。
library(shiny)

library(shinydashboard)

library(DTedit)

ui <- dashboardPage(

  dashboardHeader(title = "EditDatatable"),

  dashboardSidebar(

    sidebarMenu(

      menuItem("Dashboard", tabName = "dashboard", icon = icon("dashboard"))

      )
  ),

  dashboardBody(

    tabItems(

      tabItem(tabName = "dashboard",

       fluidPage(

         fluidRow(

           uiOutput('mycontacts') 

         )

       )

      )

    )     

  )

)

server <- function(input, output) { 

  load("D:\\editDatatable/mydata.RData")

 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[row,] <- NULL
    return(mydata)
  }

  # save(mydata, file = "D:\\editDatatable/mydata.RData")

  output$mycontacts <- renderUI(

    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', 'notes'),

                  my.callback.update = my.update.callback,

                  my.callback.insert = my.insert.callback,

                  my.callback.delete = my.delete.callback)

)}

shinyApp(ui, server)