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 (将#修改为@）