Как сделать иконки динамическими в боковой панели панели инструментов для блестящего приложения в R - PullRequest
Новая
       54

Как сделать иконки динамическими в боковой панели панели инструментов для блестящего приложения в R

0 голосов
/ 02 июля 2019

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

Это для моего собственного блестящего приложения, о котором я хотел бы сообщить мне, когда в меню появляется ошибка, которую я сейчас не просматриваю 

library(shiny)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(title = "Split app code across multiple files"),
  dashboardSidebar(
      sidebarMenu(
      id ="menu",
      menuItem("Dashboard", tabName = "dashboard",icon = icon("dashboard")),
      menuItem("Widgets", tabName = "widgets",icon = icon("th"),
              badgeLabel = "new", badgeColor = "green")),
      menuItem("Help", tabName = "help", icon = icon("question"))
  )
    ),
  ),
  dashboardBody(
    tabItems(
      # include the UI for each tab
      source(file.path("ui", "tab1.R"), local = T)$value,
      source(file.path("ui", "tab2.R"), local = T)$value
    )
  )
)

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

}

shinyApp(ui = ui, server = server)
...