仅在添加预先存在的数据后才始终删除闪亮的 CRUD 应用程序中的第一行

我被困住了，需要帮助。

我正在按照这个要点工作https://gist.github.com/gluc/d39cea3d11f03542970b https://gist.github.com/gluc/d39cea3d11f03542970b

基本上，在一个闪亮的应用程序中，它提供了进行 CRUD 操作的可能性，并且效果完美。

我现在设法将数据存储在谷歌表格上，并使用以下方式加载数据：read_sheet函数来自googlesheets4包裹。

问题是如果我想删除last row闪亮的应用程序中的表格第一排按下后将被删除删除按钮.

仅当我加载预先存在的数据（在我的情况下来自 googlesheets）时才会出现此问题。 我遇到的问题是：id当我单击闪亮的应用程序表中的行时，它没有更新。

我用过browser()并检查了每个功能，但我找不到问题。

如果我单击第一行并删除第一行，一切都会正常，但是单击第二行或除第一行之外的任何其他行，总是会删除第一行。

Update:我认为主要问题是从护目镜读取数据后禁用Id字段不随表格导航，请参见图片。

如果我点击第 3 行，那么Id字段应该是3但它停留在1每时每刻。因此，表上的任何操作（例如删除）都会删除第一行。

我无法获取环境中开始时加载的数据帧与 CRUD 应用程序定义的数据之间的链接。 akrun 的想法是完美的并且应该有效，但事实并非如此：

我在代码的开头分配了read_sheet(...)表格回复如下：

df_id_read_sheet <- read_sheet("......")
responses <- df_id_read_sheet

一夜未眠后。我找到了解决方案。这就像我想的那么简单。遵循亲爱的@akrun的第一个建议，我检查了str加载的 googlesheet 的结构。

该工作表导入为tibble将其转换为之后data.frame并分配给responses完整的代码按预期工作。由于行名而出现了问题。

Using browser()将工作表分配给后立即responses我能够在控制台上查看并检查闪亮应用程序内的结构。

我真的很喜欢调试broswer()因为它使我能够看到闪亮的应用程序中正在发生的事情。

这是一个简单但难以发现的解决方案：在闪亮的应用程序代码的开头：

library(magritter)

df_id_read_sheet <- read_sheet("put your sheet id here")
responses <- df_id_read_sheet
responses %<>% 
  as.data.frame()