Динамическая регистрация Google Sheets в блестящем приложении R, недоступном по всему миру

Question

В настоящее время я пытаюсь динамически создать серию листов Google на основе пользовательского ввода в приложении R Shiny.Идея заключается в том, что заголовок листов будет основан на вводе пользователя.Тем не менее, похоже, что, хотя я могу динамически создавать лист на основе этого пользовательского ввода в функции Наблюдать за событиями, если я хочу взаимодействовать с этим новым листом Google, появляется сообщение об ошибке, что объект не может быть найден.Я подозреваю, что созданный и зарегистрированный мной лист не доступен в глобальном масштабе, и мне нужно как-то вернуть этот объект, чтобы это работало.Но я не уверен на 100%, как лучше подойти к этой проблеме.

library(shiny)
library(googlesheets)

ui <- shinyUI(fluidPage(
  textInput("inputID", "Input", width = 120),
  actionButton("submitButton", "Submit", width = 120)
))


server <- shinyServer(function(input, output) {
  observeEvent(input$submitButton, {
    new_sheet <- gs_new(input$inputID, ws_title = "Testing")
    registeredSheet <- gs_title(input$inputID)
  })
})


shinyApp(ui = ui, server = server)`



library(shiny)
library(googlesheets)

ui <- shinyUI(fluidPage(
  textInput("inputID", "Input", width = 120),
  actionButton("submitButton", "Submit", width = 120),
  textInput("text", "Enter Text", width = 120),
  actionButton("editButton", "Edit text", width = 120)
))


server <- shinyServer(function(input, output) {
  observeEvent(input$submitButton, {
    new_sheet <- gs_new(input$inputID, ws_title = "Testing")
    registeredSheet <- gs_title(input$inputID)
  })
  observeEvent(input$editButton,{
    gs_edit_cells(registeredSheet, ws = 1, input = input$text)
  })
})


shinyApp(ui = ui, server = server)

В первом фрагменте кода Google Sheets успешно создан.Однако во втором фрагменте кода при создании листа, если я пытаюсь добавить текст, появляется сообщение об ошибке, в котором говорится: «Предупреждение: Ошибка в наследуется: объект« зарегистрированный лист »не найден».Любая помощь будет оценена.