4

刚刚发现了googlesheets包，到目前为止发现它非常有用。我现在希望能够替换现有工作表中的全部或部分内容。

例子：

> library(googlesheets) 
> set.seed(10)
> test1 <- data.frame(matrix(rnorm(10),nrow = 5))
> test1
       X1         X2
1  0.01874617  0.3897943
2 -0.18425254 -1.2080762
3 -1.37133055 -0.3636760
4 -0.59916772 -1.6266727
5  0.29454513 -0.2564784

> gs_new("foo_sheet", input = test1, trim = TRUE)

这将按预期创建一个新工作表。假设我们需要更新工作表（此数据用于 shinyapps.io 托管的闪亮应用程序，我希望不必重新部署应用程序以更改工作表引用）。

> test1$X2 <- NULL
> test1
       X1
1  0.01874617
2 -0.18425254
3 -1.37133055
4 -0.59916772
5  0.29454513

我试图简单地覆盖gs_new()但遇到以下警告消息：

> gs_new("foo_sheet", input = test1, trim = TRUE)  

Warning message:
At least one sheet matching "foo_sheet" already exists, so you may
need to identify by key, not title, in future.

这会导致foo_sheet创建一个新的工作表key，但不会替换现有的工作表，因此key如果我们尝试注册更新的工作表会产生错误

gs_title("foo_sheet")

Error in gs_lookup(., "sheet_title", verbose) : 
"foo_sheet" matches sheet_title for multiple sheets returned by gs_ls() (which should reflect user's Google Sheets home screen). Suggest you identify this sheet by unique key instead.

这意味着如果我们稍后尝试使用 访问新工作表foo_sheet，gs_read("foo_sheet")API 将返回原始工作表，而不是新工作表。

> df <- gs_read("foo_sheet")
> df
       X1         X2
1  0.01874617  0.3897943
2 -0.18425254 -1.2080762
3 -1.37133055 -0.3636760
4 -0.59916772 -1.6266727
5  0.29454513 -0.2564784

据我了解，一种可能的解决方案可能是首先删除工作表，gs_delete("test1")然后创建一个新工作表。或者，也许可以用 清空单元格gs_edit_cells()，但希望有某种形式的覆盖功能。

提前致谢！

4

1 回答 1

4

我发现编辑单元格功能是一个很好的解决方法：

gs_edit_cells(ss = "foo_sheet", ws = "worksheet name", input = test1, anchor = "A1" trim = TRUE, col_names = TRUE)

通过将数据锚定到左上角，您可以有效地覆盖所有其他数据。修剪功能将消除所有不更新的单元格。

于 2017-07-27T15:32:46.767 回答