警告:menuItem中的错误:在闪亮服务器中部署后找不到函数“validateColor”

时间:2017-10-03 11:10:30

标签: r shiny shiny-server

Afetr在它提供的闪亮服务器中部署应用程序(menuItem中的错误:在闪亮的服务器中部署之后找不到函数“validateColor”) 但它在本地服务器上工作正常我不知道如何解决这个错误

   output$sidebar=renderUI({
    if (USER$Logged == TRUE) {
    sidebarMenu(

//在此菜单项中,在光泽服务器

上部署后抛出错误
menuItem("Charts",icon = icon("bar-chart-o"),
               menuItem("Area Wise Sales", icon = icon("bar-chart-o"),
               menuItem(uiOutput("Box1")),
               menuItem(tabName = "dashboard",uiOutput("Box2"))),
               menuItem("Monthly Sales",icon=icon("bar-chart-o"),
                        menuItem(uiOutput("Box3"),
                                 menuItem(tabName ="dashboard1" ,uiOutput("Box4"))))


      ))


  }})


          output$boxxy=renderUI({
          if (USER$Logged == TRUE) {

    fluidPage(        
              # First tab content
            tabItems(
              # First tab content
              tabItem(tabName = "dashboard",  
fluidRow(tags$head(tags$style(HTML("table.dataTable tbody , table.dataTable.display tbody tr {
                                           background-color: #154360!important;
    }
                                           "))),
                 tags$style(HTML(".dataTables_wrapper .dataTables_length, .dataTables_wrapper .dataTables_filter, .dataTables_wrapper .dataTables_info, .dataTables_wrapper .dataTables_processing,.dataTables_wrapper .dataTables_paginate .paginate_button, .dataTables_wrapper .dataTables_paginate .paginate_button.disabled {
                                 color: #0000ff !important;
  }")),box(
          width = 20, status = "info",solidHeader = TRUE, collapsible = TRUE, background = "green",
          title = textOutput("text1"),
          plotlyOutput('plot')),
        box(

          width = 20, status = "info", solidHeader = TRUE, collapsible = TRUE,background ="light-blue",
          title = "Area Wise Sales",
          DT::dataTableOutput("view"))
            )),

#box ouput of per store 
tabItem(tabName = 'dashboard1',
box(
  width =6.5, status = "info", solidHeader = TRUE, collapsible = TRUE, background = "green",
  title = textOutput("text3"),
  plotlyOutput('plot1')),

box(
  width =6.5, status = "info", solidHeader = TRUE, collapsible = TRUE,background ="light-blue",
  title = textOutput('text4'),
  plotlyOutput('plot2')
  ),
box(
  width = 10, status = "info", solidHeader = TRUE, collapsible = TRUE,background ="light-blue",
  title = "STORE SALES PER MONTH ",
  dataTableOutput("view1"))

#box output of per store...........
)
)
)}      
})

ui.r dashboardSidebar(

uiOutput("sidebar")

),   dashboardBody(

uiOutput( “boxxy”),

) )

0 个答案:

没有答案