部署后不显示闪亮的表

我想在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) 
}

来源

2016-03-01 I am not George

摆脱renderDataTable（{}）的第一个参数中的大括号？ – hedgedandlevered

只是试过，仍然没有运气 –

固定

我更新R和shiny和问题得到了解决。

来源

2016-03-01 17:05:11

部署后不显示闪亮的表

回答

相关问题