блестящий стол не отображается после развертывания

Question

Я пытаюсь отобразить таблицу данных на shinyapps, но она не отображается. Если я запустил его локально, он появится. У меня есть 4 скрипта и 1 файл данных, ui.R, server.R, helper1.R, helper2.R, DATA1.RDATA,

Когда я загружаю DATA1.RDATA, он становится и объектом data.

Я также отправлю свои две вспомогательные функции, которые будут фильтровать data и возвращать df. Эта строка на сервере должна вызывать функции в вспомогательных скриптах и ​​возвращать df и отображать таблицу данных.

output$overview_table <- renderDataTable(o_table(data,input$overview_year_level2),options = list(searching = FALSE, paging = FALSE, searchable = FALSE)) 

ui.r

library(shiny) 
library(markdown) 

shinyUI(navbarPage("Title", 
        tabPanel("Overview", 
          sidebarLayout(
           sidebarPanel(uiOutput("overview_year_level")), 
           mainPanel(
           imageOutput("overview_volume_value_pie"), 
           p(), 
           dataTableOutput("overview_table") 
          ) 
          )))) 

server.R

library(shiny) 
source("helper1.R") 
source("helper2.R") 
load("DATA1.RDATA") 




shinyServer(function(input, output,session) { 

    ### OVERVIEW TABLE ### 

    output$overview_year_level <- renderUI({ 
     selectInput("overview_year_level2","Select Year",c("Select",'2015','2016'), 
                "Select") 
    } 
) 

    output$overview_table <- renderDataTable({o_table(data,input$overview_year_level2)}, 
     options = list(searching = FALSE, paging = FALSE, searchable = FALSE)) 

}) 

helper1.R

library(ggplot2) 
library(ggthemes) 
library(stringr) 
library(dplyr) 
library(DT) 
library(scales) 
library(RColorBrewer) 
require(gridExtra) 
library(scales) 

q_o_channel <- function (df,year1) { 

    data <- df %>% 
     filter(year == year1) %>% 
     group_by(chnl) %>% 
     summarize(volume = sum(volume) 
        ,value = sum(value)) 

    return(data) 
} 

helper2.R

o_table <- function(data,year1) { 
    df <- q_o_channel(data,year1) 
    return(df) 
} 

Answer 1

Fixed

Я обновил R и shiny и проблема была решена.