如何解决GoogleSheets在Rshiny中具有> 1个反应数据框已解决
我已经考虑了很长时间了,似乎无法解决!我构建的是一个RShiny应用程序,它使用 library(googlesheets4)从googlesheets捕获 REALTIVE (实时)数据并填充数据表。
有效的方法
我可以通过仅从1个Google工作表中获取1个数据帧来使其应用程序正常工作。
global <- reactiveValues(df = "")
observe({
if(! identical(global$df,DF())) #<- This refreshes the dataframe if different
global$df = DF()
})
# Test Dataframe
DF <-reactive({
invalidateLater(60000,session=session)
gs4_deauth()
temp<-read_sheet("SHEETURLHERE",sheet = 'SHEETTITLE') #<- reads in 1 sheet
temp})
我要实现的目标
从以上内容,您可以看到我只能阅读一张完整的申请书。我正尝试阅读2张或更多张纸,以便在将它们显示在数据表中之前可以执行一些转换。
我尝试过的操作(编辑,以下解决方案有效!)
全局
observe({
if(! identical(global$df,DF()) | ! identical(global$df1,DF1())
global$df = DF()
global$df1 = DF1()
})
# Test Dataframe
DF <-reactive({
invalidateLater(60000,session=session)
gs4_deauth()
temp<-read_sheet("SHEETURLHERE",sheet = 'SHEETTITLE') #<- reads in 1 sheet
temp})
DF1 <-reactive({
invalidateLater(60000,sheet = 'SHEETTITLE') #<- reads in 1 sheet
temp})
有人可以帮忙吗?
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。