R 如何将`tabPanel`附加到`menuSubItem`

我将两个数据框放在一个选项卡面板中，出现在仪表板Body上. 有人能帮我把这个选项卡板连接到仪表板边栏上显示的标题为"Inventory"的menuSubItem上吗？

此外，我需要一个帮助来创建两个数据框之间的空间，因为他们位于一个单一的选项卡面板一个在另一个.

df1 = data.table(
    "Сolumn1"= as.character(),
    "Column2"= as.numeric())

df2 = data.table(
    "Сolumn1"= as.character(),
    "Column2"= as.numeric())


ui <- dashboardPage(
  dashboardHeader(title = "Assets"),
  dashboardSidebar(
    menuItem("Home", tabName = "home"),
    menuItem("Current assets", tabName = "CurrentAssets",
    menuSubItem("Inventory", tabName="inventory")
   )
  ),
  dashboardBody(
    tabsetPanel(
      tabPanel(tabName = "inventory",
        "df1",
        rHandsontableOutput("Table1")
        ),
    tabsetPanel(
      tabPanel(tabName = "inventory",
        "df2",
        rHandsontableOutput("Table2")
    )
      )
    )
  )
)


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

    output$Table1 <- renderRHandsontable({
            rhandsontable(df1)
  })

    output$Table2 <- renderRHandsontable({
            rhandsontable(df2)
  })

    }

shinyApp(ui, server)