如何在ShinyDashboard中指定menuItem？

我正在使用shinydashboard软件包版本0.7.1创建闪亮的web应用程序

所以我遇到了一个问题，当我指定

menuItem

时，什么也不会发生

以下是一个例子：

library(shinydashboard)
library(sqldf)
library(DBI)
library(foreign)
library(RPostgres)
library(stringr)
library(readxl)
library(ggplot2)
library(ggpubr)
library(formattable)
library(reshape2)

header <- dashboardHeader(title = "S-T")
sidebar <- dashboardSidebar(
    textInput("banc_lics", "No of license", value=1),
    dateInput("date_an", "Input date", value = "2019-02-01" ),
    sidebarMenu(
        sidebarMenu(
            menuItem("Credit Risk", tabName = "Credit Risk",  icon("abacus")),
            menuItem("Equity Risk", tabName = "Equity Risk", icon("wave-tiangle")))
        ),
    submitButton("Submit", icon("calculator"))
)

page <- dashboardBody(
    tabItems(
        tabItem(
            tabName = "Credit Risk", h1("Credit Risk"),
            fluidRow(
                box(width=12, title = "Таблица", tableOutput("data_table"))
            ),
            fluidRow(
                box(width=12, title = "График", plotOutput("data_plot"))
            ) 
        ),
        tabItem(tabName = "Equity Risk", h2("Equity Risk"))
    )
)

ui <-  dashboardPage(header, sidebar, page, skin="yellow")

server <- function(input, output) {}

shinyApp(ui = ui, server = server)

库（ShinydaShashboard）
库（sqldf）
图书馆（DBI）
图书馆（外文）
图书馆（RPostgres）
图书馆（stringr）
图书馆（readxl）
图书馆（GG2）
图书馆（ggpubr）
库（格式化表）
图书馆（E2）
header需要更改的内容很少

您有一个多余的
sidebarMenu（）
，这是不必要的
您需要将
图标（“x”）
设置为
图标=图标（“x”）
完整代码：

library(shinydashboard)

header <- dashboardHeader(title = "S-T")
sidebar <- dashboardSidebar(
  textInput("banc_lics", "No of license", value=1),
  dateInput("date_an", "Input date", value = "2019-02-01" ),
  sidebarMenu(
        menuItem("Credit Risk", tabName = "CR",  icon = icon("abacus")),
        menuItem("Equity Risk", tabName = "ER", icon = icon("wave-tiangle"))
      ),
  submitButton("Submit", icon("calculator"))
)

body <- dashboardBody(
  tabItems(
    tabItem(tabName = "CR", 
            h1("Credit Risk"),
            fluidRow(
              box(width=12, title = "Таблица", tableOutput("data_table"))
            ),
            fluidRow(
              box(width=12, title = "График", plotOutput("data_plot"))
            )
            ),
    tabItem(tabName = "ER", 
            h2("Equity Risk")
            )
  )
)

ui <-  dashboardPage(header, sidebar, body, skin="yellow")

server <- function(input, output) {}

shinyApp(ui = ui, server = server)

库（ShinydaShashboard）
标题