ShinyDashboard动态项目符号 [英] ShinyDashboard Dynamic Bullet Points

问题描述

我希望有一个简单的问题来传递一个闪亮的仪表板中的标记有序列表。我想要做的是有一个函数，它根据过滤的类别生成一个有序的项目符号列表。

以下是我希望能够使用名为nba_Teams的数据框的一个简单示例

teams    conference
Bulls    Eastern
Nuggets  Western
Celtics  Eastern
Lakers   Western

现在，如果我编写此函数，它将列出各个会议的列表：

for (row in 1:nrow(nba_teams)){
  teams <- nba_teams[row, "teams"]
  conference <- nba_teams[row,"conference"]

  if(grepl("Western",conference)){
   print(tags$li(teams))
 }
}

掘金

湖人队

我想做的是将其放在选项卡框中，以便：

box(
 title = "Western Conference",
 tags$ol(
  for (row in 1:nrow(nba_teams)){
  teams <- nba_teams[row, "teams"]
  conference <- nba_teams[row,"conference"]

  if(grepl("Western",conference)){
   print(tags$li(teams))
 }
})),

但这只会将框留空，并且不会在框中填充每个观察的项目符号。

有什么建议吗？谢谢！

推荐答案

我在本例中使用lapply：

library(shiny)  
library(shinydashboard)

nba_teams <- data.frame(team = c("Bulls", "Nuggest", "Celtics", "Lakers"),
                        conference = c("Eastern", "Western", "Eastern", "Western"))

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(
    box(
      title = "Western Conference",
      tags$ol(
        lapply(1:nrow(nba_teams), function(x) {
          if (nba_teams$conference[x]=="Western") {
            return(tags$li(nba_teams$team[x]))
          }
        })
      )
    )
  )
)

server <- function(input, output, session) {}

shinyApp(ui, server)

这篇关于ShinyDashboard动态项目符号的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！