How do I dynamically add additional `sidebarMenu`s with an action button in shiny (shinydashboard) using `renderMenu`?

Question

Here is the code I am working from:

library(shiny)
library(shinydashboard)

header <- dashboardHeader(),
sidebar <- dashboardSidebar(sidebarMenu(menuIte