Код сервера для Shiny-Server для определенного приложения не показывает ни одного из фреймов данных

Question

Так что файл ui.R работает отлично.Тем не менее, я подозреваю, что сервер.R может быть причиной проблемы здесь.Предполагаемое поведение заключается в том, что у меня есть фреймы данных, отображаемые над встроенными HTML-диаграммами на каждой из моих страниц.Однако кадры данных не генерируются.Предполагаемая цель состоит в том, чтобы использовать пакет листов Google, прочитать лист Google, а затем преобразовать его в фрейм данных, представленный на R Shiny.

Я попытался поместить функцию и определение фрейма данных выше и ниже в пределахui.R и сервер.R.Однако я не получаю никакого возврата ни от одного из выходных данных.

Это для Shiny-сервера, размещенного на сервере Ubuntu 16.04.

#
# This is the server logic of a Shiny web application. You can run the
# application by clicking 'Run App' above.
#
# Find out more about building applications with Shiny here:
#
#    http://shiny.rstudio.com/
#

library(shiny)
library(shinydashboard)
library(googlesheets)
library(googleCharts)
library(googleAuthR)
library(stats)
library(searchConsoleR)
library(googleAnalyticsR)
library(httr)
library(dplyr)
library(plyr)
library(mosaic)
library(DT)
library(httpuv)
library(htmltools)

# Google Sheets for Synced Keys with Data Master
# ===============================================
handover <- gs_key("1Wu8gJ#$%%#$%%#@#$@@$#%@@#$%@#%-VVHcB8c")
for_gs_sheet <- gs_read(handover)
str(for_gs_sheet)

# Define server logic required to draw a histogram
shinyServer(function(input, output) {
  google_app <- oauth_app(
    "google",
    key = "3901########################m",
    secret = "b#########################z"
  )
  #oauth2.0_token(google_app)
    ## ---------- Google Authentication ---------- ##
    gs_auth(token = NULL ,new_user = FALSE,
            key = getOption("################.com"),
            secret = getOption("##############Ka5mz"),
            cache = getOption("googlesheets.httr_oauth_cache"), verbose = TRUE)

        for_gs_sheet <- gs_read(handover)
        str(for_gs_sheet)

    output$mytable = DT::renderDataTable({
        df <- gs_read(handover)
    })
})

Фактические результаты должны показывать выходные данные, относящиеся к пакету DT.Однако таблица данных не обрабатывается и / или не отображается при вызове в выходных данных сервера.