私は光沢のあるダッシュボードを使用しており、2レベルのネストされたサブメニューを作成する必要があります。私はこれを試していてうまくいきません:
library(shinydashboard)
sidebar <- dashboardSidebar(
sidebarMenu(id = 'sidebarmenu',
menuItem('x', tabName = 'x', icon = icon('line-chart')),
menuItem('y', tabName = 'y',
icon = icon('line-chart'),
menuSubItem('a',
tabName = 'a',
icon = icon('line-chart')),
menuSubItem('b',
tabName = 'b',
icon = icon('line-chart'),
menuSubItem('l',
tabName = 'l',
icon = icon('line-chart')),
menuSubItem('m',
tabName = 'm',
icon = icon('line-chart'))),
menuSubItem('c',
tabName = 'c',
icon = icon('line-chart'))
)))
エラーが発生しました:
Error in menuSubItem("b", tabName = "b", icon = icon("line-chart"), menuSubItem("l", :
Can't specify both href and tabName
2レベルのネストを構築することは可能ですか?もちろん、上記のl
およびm
サブメニューを削除しても問題ありません(1レベルのサブメニューがある場合)。
menuSubItem
のみを最下位レベルとして使用し、他のmenuItem
を呼び出す場合に機能します。それはあなたの目的のために機能しますか?
sidebar <- dashboardSidebar(
sidebarMenu(id = 'sidebarmenu',
menuItem('x', tabName = 'x', icon = icon('line-chart')),
menuItem('y', tabName = 'y',
icon = icon('line-chart'),
menuItem('a',
tabName = 'a',
icon = icon('line-chart')),
menuItem('b',
tabName = 'b',
icon = icon('line-chart'),
menuSubItem('l',
tabName = 'l',
icon = icon('line-chart')),
menuSubItem('m',
tabName = 'm',
icon = icon('line-chart'))),
menuItem('c',
tabName = 'c',
icon = icon('line-chart'))
)))