Ошибка при запуске пользовательского интерфейса для блестящего веб-приложения - объект типа «замыкание» не является поднабором - PullRequest
Новая
       8

Ошибка при запуске пользовательского интерфейса для блестящего веб-приложения - объект типа «замыкание» не является поднабором

0 голосов
/ 13 января 2020

У меня возникла проблема при развертывании моего приложения в облаке Rshiny

При запуске кода ниже для кода пользовательского интерфейса появляется следующая ошибка:

Ошибка в данных $ Тип: объект типа 'замыкание' не может быть подмножеством

Я смотрел много вопросов в Интернете, но не могу выяснить, что не так в моем коде 

ui <- semantic.dashboard::dashboard_body(
      semantic.dashboard::dashboard_header(color = "blue",title = "Dashboard Demo",inverted = TRUE),
      semantic.dashboard::dashboard_sidebar(
         # size = "thin", color = "teal",
          semantic.dashboard::sidebar_menu(
            semantic.dashboard::menu_item(tabName = "Visualization", "Visualization", icon = icon("chart line")),
            semantic.dashboard::menu_item(tabName = "RawData", "RawData", icon = icon("table"))
        )
      ),
      semantic.dashboard::dashboard_body(
        shiny::fluidRow(
          column(width = 3, offset =0, div(style = "height:35px"),
                 selectInput("type",
                             "Type:",
                             c("All",
                               unique(as.character(data$Type))))
          ),
          column(width = 3, offset =0, div(style = "height:35px"),
                 selectInput("Bname",
                             "Business Name:",
                             c("All",
                               unique(as.character(data$Business_Name))))
          ),
          column(width = 3, offset =0, div(style = "height:35px"),
                 selectInput("BUnit",
                             "Business Unit:",
                             c("All",
                               unique(as.character(data$Business_Unit))))
          ),
          column(width = 3, offset =0, div(style = "height:35px"),
                 selectInput("region",
                             "Region:",
                             c("All",
                               unique(as.character(data$Region))))
          )
        ),
        semantic.dashboard::tab_items(
          selected = 1,
          semantic.dashboard::tabItem(
            tabName = "Visualization",
            # Create a new row for the table.
            plotOutput('waterfall')
          ),
          semantic.dashboard::tabItem(
            tabName = "RawData",
            # Create a new row f
              DT::dataTableOutput("table")
            ),
          shiny::downloadButton("downloadData", "Download Raw Data")
      )
    )
    )
...