R GoogleSheets4:部署时Shinyio服务器中的身份验证错误？

以下是我的简单测试应用程序代码：

library(shiny)
library(shinydashboard)
library(googlesheets4)
library(googledrive)
library(DT)

drive_auth(email = "xxxx")

shinyws1<-gs4_create("WS1")
#table<-read_sheet("xxx")

# Define UI for application
ui <- fluidPage(
   
   # Application title
   titlePanel("Test App"),
   
   # Sidebar with a slider input for number of bins 
   sidebarLayout(
      sidebarPanel(
         numericInput("bins",
                     "Number of friends:",
                     min = 1,
                     max = 100,
                     value = 50),
         actionButton("submit","Submit",class="btn-success")
      ),
      
      # Show a plot of the generated distribution
      mainPanel(
         #blank so far
      )
   )
)


# Define server logic required to draw a histogram
server <- function(input, output) {
   
   #results<-reactive(input$bins)
  observeEvent(input$submit,{
    shinyws1 %>% sheet_append(as.data.frame(input$bins))
  }) 
  
   
}

# Run the application 
shinyApp(ui = ui, server = server)

库（闪亮）
图书馆（shinydashboard）
图书馆（谷歌地图4）
图书馆（谷歌硬盘）
图书馆（DT）
驱动器验证（电子邮件=“xxxx”）
发光体1
Error in value[[3L]](cond) : Can't get Google credentials.
Are you running googledrive in a non-interactive session? Consider:
  * `drive_deauth()` to prevent the attempt to get credentials.
  * Call `drive_auth()` directly with all necessary specifics.
  * Read more in: https://gargle.r-lib.org/articles/non-interactive-auth.html
Calls: local ... tryCatch -> tryCatchList -> tryCatchOne -> <Anonymous>
Execution halted