在多个subMenuItems下使用R shiny中类似的UI脚本

ui <- navbarPage(
  "My App",
  tabPanel("Tab 1",
           # 子菜单项1
           sidebarMenu(
             menuItem("Submenu 1",
                      # 子菜单项1的内容
                      # ...
             ),
             # 子菜单项2
             menuItem("Submenu 2",
                      # 子菜单项2的内容
                      # ...
             )
           )
  ),
  tabPanel("Tab 2",
           # 子菜单项3
           sidebarMenu(
             menuItem("Submenu 3",
                      # 子菜单项3的内容
                      # ...
             ),
             # 子菜单项4
             menuItem("Submenu 4",
                      # 子菜单项4的内容
                      # ...
             )
           )
  )
)

# 子菜单项1的内容
menuItem("Submenu 1",
         textInput("input1", "Input 1"),
         actionButton("button1", "Button 1"),
         plotOutput("plot1")
)

# 子菜单项2的内容
menuItem("Submenu 2",
         selectInput("input2", "Input 2", choices = c("Option 1", "Option 2")),
         dataTableOutput("table1")
)

# 子菜单项3的内容
menuItem("Submenu 3",
         sliderInput("input3", "Input 3", min = 0, max = 100, value = 50),
         verbatimTextOutput("output1")
)

# 子菜单项4的内容
menuItem("Submenu 4",
         checkboxInput("input4", "Input 4"),
         leafletOutput("map1")
)

server <- function(input, output) {
  # 子菜单项1的处理
  output$plot1 <- renderPlot({
    # 绘制图表的代码
  })
  
  # 子菜单项2的处理
  output$table1 <- renderDataTable({
    # 生成数据表的代码
  })
  
  # 子菜单项3的处理
  output$output1 <- renderPrint({
    # 输出文本的代码
  })
  
  # 子菜单项4的处理
  output$map1 <- renderLeaflet({
    # 生成地图的代码
  })
}