Блестящий значок на панели вкладок - PullRequest
Новая
       6

Блестящий значок на панели вкладок

0 голосов
/ 02 ноября 2018

В моей блестящей панели инструментов есть панель вкладок, которая заполняет любое количество значений. Я хочу добавить параметр, который будет добавлять значок рядом с именем на панели вкладок, если критерий удовлетворен, и возвращать только имя, если оно не похоже на следующее: 

library(shinydashboard)
nba_teams <- data.frame(team = c("Bulls", "Nuggets", "Celtics", "Lakers"),
                        conference = c("Eastern", "Western", "Eastern", "Western"),
                        player_over_30 = c("Y","N","N","Y"),
                        date_team_formed = c(1966-01-01,1967-01-01,1946-06-06,1947-01-01))

nba_list <- list()
for(i in 1:length(unique(nba_teams$conference))){
  nba_list[[i]] <- filter(nba_teams, conference==unique(nba_teams$conference)[[i]]) %>% as.data.frame()
}
names(nba_list) <- unique(nba_teams$conference)


ui <- dashboardPage(
  dashboardHeader(title = "NBA Data"),
  dashboardSidebar(),
  dashboardBody(
      box(
        title = "test1",
        uiOutput("detailed_output")

      )))


server <- function(input,output){

 output$detailed_output <- renderUI({
   pan = lapply(1:length(nba_list[['Western']]$team), function(x) 
     tabPanel(nba_list[['Western']]$team[x],
              reactive({
                if(nba_list[['Western']]$player_over_30[x]=='Y'){
                  return(tags$li(nba_list[['Western']]$team[x],icon("file")))
                }
                else{
                  return(tags$li(nba_list[['Western']]$team[x]))
                }
              })))
   do.call(what = shinydashboard::tabBox, args = c(title = "teams", width = 12, height = "200px", pan))
 })}

shinyApp(ui,server)

Тем не менее, когда я пытаюсь запустить это, приборная панель обновляется, однако вкладка не будет отображаться с реактивной опцией. Я получаю сообщение об ошибке, которое не может привести тип «замыкание» к вектору типа «символ».

Это сбой в реактивной части сервера, но я не уверен, что изменить, чтобы исправить это. Спасибо,

...