闪亮 table 部署后未显示

Question

我正在尝试在 shinyapps 上呈现数据 table 但它没有显示。如果我运行它在本地显示。我有 4 个脚本和 1 个数据文件，ui.R、server.R、helper1.R、helper2.R、DATA1.RDATA、

当我加载 DATA1.RDATA 时，它变成对象 data。

我还提供了我的两个辅助函数，它们将过滤 data 和 return 一个 df。服务器中的这一行假设调用帮助脚本中的函数和 return df 并呈现数据 table.

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

固定

我更新了 R 和 shiny，问题已解决。

闪亮 table 部署后未显示

shiny table not showing after deployment

r

shiny

shiny-server