Question

我有一个代码（复制了另一篇文章），它加载了一个数据框并可以为这个数据框添加值（带有一个输入框），但是这个添加的值在我退出闪亮时不会留在数据帧上。我的问题是如何将这些添加的值保存到原始数据帧。

代码：

db.users.update({_id: 'oBmLTMB5Y6gWwkYML'}, {$pull: {'mailingAddress': {addressId: 'sEK4cza8XBHBApF2P'}}})

非常感谢

Answer 1

添加以下行将创建名为save_data的df，一旦退出闪亮的应用程序，就可以在本地环境中访问该文件。

  # your action button condition
    if(input$addButton > 0) {
      # create the new line to be added from your inputs
      newLine <- isolate(c(input$mes, input$concepto, input$partida, input$actividad, input$monto))
      # update your data
      # note the unlist of newLine, this prevents a bothersome warning message that the rbind will return regarding rownames because of using isolate.
      isolate(values$df <- rbind(as.matrix(values$df), unlist(newLine)))
      save_data <<- values$df
    }

您也可以（代替那条线）

write.csv(values$df, file = "ConcentradoR.csv")

但也看到write.table，您可能需要指定一些参数以确保其格式正确

R，Shiny，为数据帧添加值并保存它们

1 个答案: