R 闪亮-更新谷歌表单

我正在制作一个闪亮的应用程序，它可以从google drive中的google sheets文档中获取数据。在下面的MWE中，它仅显示表格

我想让应用程序显示google工作表的当前状态，所以我在从google drive读取数据的反应式表达式中添加了invalidateLater

缺点是，即使数据没有更改，表也会每次刷新。你知道怎么处理吗

MWE:

用户界面

库（闪亮）
图书馆（shinydashboard）
header当然，这种行为有点强迫：）但是，也许一个变通办法对你来说是好的。
您可以将以下内容添加到服务器：

global <- reactiveValues(df = "")

observe({
   if(! identical(global$df,DF())) global$df = DF()
})

嗯，这种行为当然是被迫的：）但是，也许一个变通办法对你来说是好的。
您可以将以下内容添加到服务器：

global <- reactiveValues(df = "")

observe({
   if(! identical(global$df,DF())) global$df = DF()
})

library(shiny)
library(knitr)
library(googlesheets)

muntgeg<-gs_title("RA-Munten")

global <- reactiveValues(df = "")

observe({
   if(! identical(global$df,DF())) global$df = DF()
})

output$Munt<-renderDataTable(global$df)