R Shiny：如何更改存储的数据？

Question

我为体育博彩编写了一个闪亮的应用程序，使我能够

1. 运行模型并挑选获胜者，
2. 如果我决定投注游戏并将其存储在数据库中，请添加其他变量，并且
3. 使用这些信息跟踪我的投注表现并调整策略。

到目前为止，该应用程序运行良好，但有一个主要缺陷：当我进行计算并决定对游戏下注时，我可以使用提交按钮简单地将另一行添加到数据库中。问题是我有两个重要的数据分析栏，只能在游戏后添加。因此，我需要在比赛前提交的一行中添加或更改信息。

我在 Dean Attali 的 this 输入上构建了我的应用程序的数据存储部分，因此我还使用了本教程中的最小示例（顺便感谢 @Dean）。这是没有存储的基本应用程序，但我想重要的是回到已经存在的行并更改（或扩展）它们。有没有人已经做过类似的事情或知道如何解决这个问题？

更新：我在这里找到了解决问题的方法enter link description here（在底部 - 3 月 15 日）。我试图实现它，但表格中没有反应，因为我显然错过了一个重要的点。有谁知道如何让表格做出响应？

library(shiny)
library(DT)
devtools::install_github('rstudio/DT@feature/editor')

saveData <- function(data) {
  data <- as.data.frame(t(data))
  if (exists("responses")) {
    responses <<- rbind(responses, data)
  } else {
    responses <<- data
  }
}

loadData <- function() {
  if (exists("responses")) {
    responses
  }
}

# Define the fields we want to save from the form
fields <- c("name", "used_shiny", "r_num_years")

# Shiny app with 3 fields that the user can submit data for
shinyApp(
  ui = fluidPage(
    DT::dataTableOutput("responses", width = 300), tags$hr(),
    textInput("name", "Name", ""),
    checkboxInput("used_shiny", "I've built a Shiny app in R before", FALSE),
    sliderInput("r_num_years", "Number of years using R",
            0, 25, 2, ticks = FALSE),
    actionButton("submit", "Submit")
  ),
  server = function(input, output, session) {

# 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$responses <- DT::renderDataTable({
  input$submit
  loadData() %>%
    datatable(rownames = FALSE)
    })

  proxy <- dataTableProxy("x1")

  observeEvent(input$x1_cell_edit, {
  info <- input$x1_cell_edit
  i <- info$row
  j <- info$col + 1
  v <- info$value
  loadData[i, j] <<- DT:::coerceValue(v, loadData[i, j])
  replaceData(proxy, loadData, resetPaging = FALSE, rownames = FALSE)
})     
  }
)

Answer 1

我在使用 DT live editor 的更新示例中修复了一些问题：

• 添加了 getDataValue 和 setDataValue 函数来读取/操作数据框中的单个条目
• 用responses 替换了x1 的实例（来自GitHub 上的示例代码的表名）
• 在sapply 中添加了simplify = FALSE，因此它返回一个列表而不是一个向量。这样添加到表中的数据可以是不同类型的。 R中的向量只有一种类型，所以所有的表数据都被转换为字符串，甚至TRUE/FALSE

# devtools::install_github('rstudio/DT@feature/editor')
library(shiny)
library(DT)

saveData <- function(data) {
  if (exists("responses")) {
    responses <<- rbind(responses, data)
  } else {
    responses <<- data.frame(data, stringsAsFactors = FALSE)
  }
}

loadData <- function() {
  if (exists("responses")) {
    responses
  }
}

getDataValue <- function(i, j) {
  stopifnot(exists("responses"))
  responses[i, j]
}

setDataValue <- function(i, j, value) {
  stopifnot(exists("responses"))
  responses[i, j] <<- value
  responses
}

# Define the fields we want to save from the form
fields <- c("name", "used_shiny", "r_num_years")

# Shiny app with 3 fields that the user can submit data for
shinyApp(
  ui = fluidPage(
    DT::dataTableOutput("responses", width = 300), tags$hr(),
    textInput("name", "Name", ""),
    checkboxInput("used_shiny", "I've built a Shiny app in R before", FALSE),
    sliderInput("r_num_years", "Number of years using R",
                0, 25, 2, ticks = FALSE),
    actionButton("submit", "Submit")
  ),
  server = function(input, output, session) {

    # Whenever a field is filled, aggregate all form data
    formData <- reactive({
      data <- sapply(fields, function(x) input[[x]], simplify = FALSE)
      data
    })

    # Show the previous responses
    # (update with current response when Submit is clicked)
    output$responses <- DT::renderDataTable({
      req(input$submit)
      newData <- isolate(formData())
      saveData(newData)
      datatable(loadData(), rownames = FALSE)
    })

    proxy <- dataTableProxy("responses")

    observeEvent(input$responses_cell_edit, {
      info <- input$responses_cell_edit
      i <- info$row
      j <- info$col + 1
      v <- info$value

      newValue <- DT:::coerceValue(v, getDataValue(i, j))
      setDataValue(i, j, newValue)
      DT::replaceData(proxy, loadData(), resetPaging = FALSE, rownames = FALSE)
    })
  }
)